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H. Ponnath 

Grafik-Programmierung C128 

Februar 1986, 196 Seiten inkl. Disk 

Die Programmierung von Grafik gehört zu den 
interessantesten Aufgaben, die man mit dem 
Commodore 128 PC lösen kann. Dieses Buch 
hilft Ihnen dabei! Das Themenfeld ist weit ge¬ 
spannt und behandelt unter anderem: hoch¬ 
auflösende und Mehrfarben-Grafik im C128- 
Modus. Alle BASIC 7.0-Befehle dazu werden 
detailliert besprochen und ihre Möglichkeiten 
und Grenzen gezeigt: die Programmierung von 
Sprites und Shapes; nützliche Assemblerpro¬ 
gramme (z.B. eine OLD- und eine MERGE- 
Funktion, die die modulare Programmierung 
unterstützt); die Videochips VIC und VDC und 
ihre Programmierung; eine Technik zur Erzeu¬ 
gung von selbstmodifizierenden Programmen. 
Best.-Nr. MT 90202 
ISBN 3-89090-202-2 
DM 52,-/sFr. 47,80/ÖS 405,60 


Markt&Technik 



Die faszinierende Wert der Grafik 
erklärt an zahlreichen Anwendungsbeispielen 
in BASIC und ASSEMBLER: 

Sprites ★ Shapes ★ Animation 


Markt&Technik 


CBM 30 


ANWENDER 

HANDBUCH 



Bn unentbehrliches Nachschlagewerk für die prakitsche Arbeit 
mit CP/M 3.0. Mit »leien Betepielen für den Bnsatz und 
Verwendung der Httfsprogramme und Anleitung zur Implemen- 


Prof. Dr. Wolf-Jürgen Becker 

CP/M 3.0 Anwender-Handbuch C128 

2. Quartal 1986. ca. 250 Seiten 

Wenn Sie Ihren Commodore 128 PC schon 
ganz gut im Griff haben und jetzt so richtig ein¬ 
steigen wollen in die Mögfcchketen die das lei¬ 
stungsstarke Betriebssystem CP M 3.0 bietet, 
sollten Sie mal in dieses Buch schauen: es sagt 
Ihnen alles über den Aufbau emer Datenverar¬ 
beitungsanlage. Mikrocomputer Programmier¬ 
sprachen und Betriebssysteme im allgemeinen 
und über das Betriebssystem CP M speziell auf 
dem CI28 PC. Ausfübrtche Beschreibungen 
der CP M-Befehle und ihrer Funktionen fehlen 
ebensowenig wie die umfassende Darstellung 
der Struktur von CP M 3 0 auf dem C128. Im 
Kapitel über das Programmieren unter CP M er¬ 
fahren Sie dann, wie man das CP M-Betriebs- 
system ändert, kommerzieie Software instal¬ 
liert und mit ihr arbeitet 
Best.-Nr. MT 90196 
ISBN 3 89090 196 4 
DM 52,-/sFr. 47.80 öS 405.60 


Maita<Oedinik 


Commodore 



Handbuch 



P. Rosenbeck 

Das Commodore 128- 
Handbuch 

1985, 383 Seiten 

Dieses Buch sagt Ihnen alles, 
was Sie über Ihren C128 wis¬ 
sen müssen: die Hardware, 
die drei Betriebssystem-Modi 
und was die CP/M-Fähigkeit 
für Ihren Computer bedeutet. 
Aber Sie werden irgendwann 
Lust verspüren, tiefer in Ihren 
CI 28 einzusteigen. Auch da¬ 
für ist gesorgt: an einen 
Assemblerkurs, der Ihnen zu¬ 
gleich die Funktionsweise 
des eingebauten Monitors 
nahebringt, schließen sich 
Kapitel an, die mit Ihnen auf 
Entdeckungsreise ins Innere 
der Maschine gehen. Daß die 
Reise spannend wird, dafür 
sorgen die Beispiele, aus de¬ 
nen Sie viel über die Interna 
des Systems lernen können - 
bis hin zur Grafik-Program¬ 
mierung. 

Best.-Nr. MT 90195 
ISBN 3-89090-195-6 
DM 52,-/sFr. 47,80/ÖS 405,60 


Mffta£lcdinik 


BASIC70 
auf dem 
Commodore 



J. Hückstädt 

BASIC 7.0 auf dem 
Commodore 128 

1985, 239 Seiten 

Das neue BASIC 7.0 des 
CI28 eröffnet mit seinen ca. 
150 Befehlen ganz neue Di¬ 
mensionen der BASIC-Pro- 
grammierung. Es ermöglicht 
dem Anfänger den einfachen 
und effektiven Zugriff auf die 
erstaunlichen Grafik- und Ton¬ 
möglichkeiten des CI28; der 
Fortgeschrittene findet die 
nötigen Informationen für 
(auch systemnahe) Profi-Pro¬ 
grammierung mit strukturier¬ 
ten Sprachmitteln. 

An praxisnahen Beispielen 
(wie z.B. der Dateiverwaltung) 
zeigt der Autor auf, wie man 
die für den 128er typischen 
Merkmale und Eigenschaften 
(Sprites, Shapes, hochauflö¬ 
sende Grafik, Musikprogram¬ 
mierung und Geräusche) opti¬ 
mal nutzt! 

Best.-Nr. MT 90149 
ISBN 3-89090-149-2 
DM 52,-/sFr. 47,80/ÖS 405,60 


Markt& Technik-Fachbücher 
erhalten Sie bei Ihrem Buchhändler 

Bestellungen im Ausland bitte an den 
Buchhandel oder an untenstehende Adressen. 
Schweiz: Markt&Technik Vertriebs AG, 
Kollerstrasse 3, CH-6300 Zug, ® 042/41 5656 
Österreich: Ueberreuter Media Handels- und 
Verlagsges. mbH, Alser Straße 24, 1091 Wien, 
S“ 0222/481538-0 

Irrtümer und Änderungen Vorbehalten. 



R. Schineis, M. Braun, 

N. Demgensky 

C128R0M-Listing: 
Operating System 

März 1986, 450 Seiten 

Dieses Buch ist für alle Pro¬ 
grammierer und Anwender 
gedacht, die mehr über ihren 
Commodore 128 PC wissen 
wollen: Eine Einführung in die 
Organisation und Wirkungs¬ 
weise eines Mikrocomputers 
sowie eine detaillierte Be¬ 
schreibung der Mikroprozes¬ 
sorfamilie 65XX bzw. 8502, 
Aufbau und spezielle Hard¬ 
wareeigenschaften des C128 
mit Beispielprogrammen. Ein 
umfangreiches, vollständig 
kommentiertes Assemblerli- 
sting mit Cross-Referenzliste 
(Verweistabelle) umfaßt das 
komplette Betriebssystem mit 
dem 40/80-Zeichen-Editor 
sowie allen Kernel-Routinen. 
Best.-Nr. MT 90221 
ISBN 3-89090-221-9 
DM 49,-/sFr. 45,10/ÖS 382,20 


Dr. P. Albrecht 

dBASE II für den 
Commodore 128 PC 

1985, 280 Seiten 

Das vorliegende Buch gibt 
nach einer kurzen Einführung 
in den Komplex »Datenban¬ 
ken« eine Anleitung für den 
praktischen Umgang mit 
dBASE II. Schon nach Beherr¬ 
schung weniger Befehle ist 
der Anwender in der Lage, 
Dateien zu erstellen, mit Infor¬ 
mationen zu laden und auszu¬ 
werten. 

Best.-Nr. MT 838 

ISBN 3-89090-189-1 

DM 49,-/sFr. 45,10/ÖS 382,20 


Dr. P. Albrecht 

Multiplan für den 
Commodore 128 PC 

September 1985, 226 Seiten 
Best.-Nr. MT 836 
ISBN 3-89090187-5 
DM 49,-/sFr. 45,10/ÖS 382,20 



Markt&Technik 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 


G. Jürgensmeier 

Wordstar 3.0 

mit MailMerge für den 

Commodore 128 PC 

1985, 435 Seiten 

Wordstar ist ein umfangrei¬ 
ches und leistungsfähiges 
Textverarbeitungsprogramm. 
Doch bedeutet dies nicht un¬ 
bedingt, daß es auch einfach 
zu bedienen ist. Hiersetztdie- 
ses Buch an: Es macht in vor¬ 
bildlicher Weise mit allen 
Möglichkeiten von Wordstar 
und MailMerge vertraut und 
ist damit eine ideale Ergän¬ 
zung zum Handbuch. 

Best.-Nr. MT 780 

ISBN 3-89090-181 6 

DM 49,-/sFr. 45,10/ÖS 382,20 


K. Schramm 

Die Floppy 1570/1571 

2. Quartal 1986. ca. 400 S. 

In der Floppy 1571 wurde ein 
völlig neues Floppy-Konzept 
verwirklicht: diese Floppysta- 
tion ist in der Lage, mehrere 
verschiedene Diskettenfor¬ 
mate zu verarbeiten. Dieses 
Buch soll es sowohl dem Ein¬ 
steiger als auch dem fortge¬ 
schrittenen Programmierer 
ermöglichen, die vielfältigen 
Möglichkeiten dieses neuen 
Gerätes voll auszuschöpfen. 
Sämtliche Betriebsarten und 
Diskettenformate werden 
ausführlich erläutert. 

Best.-Nr. MT 90185 
ISBN 3-89090 185 9 
DM 52,-/sFr. 47.80/ÖS 405,60 






















































D as ist beileibe keine indiskrete 
Frage nach Ihrem Privatleben. 
Pascal ist eine Programmier¬ 
sprache! Oder halten Sie’s lieber mit 
Basic? Jeder, der sich intensiv mit sei¬ 
nem Computer beschäftigt, lernt 
schnell die Grenzen des eingebauten 
Basic kennen. Leicht zu verstehen und 
einfach zu programmieren - und eine 
unübersehbare Zahl von Listings zum 
Abtippen in fast allen Computermagazi¬ 
nen, die es am Markt gibt, machen 
Basic zu einer Bastion auf dem Heim¬ 
computermarkt. Aber das muß nicht 
sein. Andere Programmiersprachen 
holen noch viel mehr aus Ihrem Compu¬ 
ter heraus. Bloß, wie soll man sich in 
dem Babylon der Computersprachen 
zurechtfinden? C, B, Pascal, Fbrth, 
Ada..., die Namen der verschiedenen 
Sprachen und Dialekte sind Legion. 

Welche Alternative muß man ergrei¬ 
fen, wenn man der eingebauten Com¬ 
putersprache überdrüssig ist? Um 
diese Frage zu beantworten, haben wir 
für Sie dieses Sonderheft zusammen¬ 
gestellt. 

Am beliebtesten - oder am meisten in 
der Schule und Universität verlangt - 
sind zur Zeit Pascal, C und Forth. Zu die¬ 
sen drei Sprachen finden Sie deshalb 
jeweils einen großen Einsteiger-Kurs. 
Lernen, das beschränkt sich aber nicht 
nur auf die Theorie. Deshalb sind alle 
Artikel mit vielen Beispiellistings zum 
Abtippen versehen. Denn nur, wer 
selbst ausprobiert, lernt die neue Spra¬ 
che verstehen und effektiv einzuset¬ 
zen. Vom Spiel bis zu Anwendungen, 
die das Leben eines Programmierers 
erleichtern, finden Sie alles, was das 
Herz begehrt. 

Einen Fbrth- und einen Pilot-Inter¬ 
preter zum Abtippen haben wir auch für 
Sie aufgetrieben. Denn nicht jeder will 
gleich teures Geld für eine Sprache 
ausgeben, mit der er sich dann viel¬ 
leicht doch nicht anzufreunden vermag. 
Also erst mal reinschnuppern und an¬ 




fangen in einer neuen Sprache zu pro¬ 
grammieren. 

Damit Sie wissen, was es alles an 
Sprachen für Ihren Computer zu kaufen 
gibt, finden Sie auf über fünf Seiten alle 
Sprachen, die für Heimcomputer im 
Handel sind. Viele davon haben wir 
getestet und wir sagen Ihnen, mit wel¬ 
cher Sie Ihren Commodore 64, Schnei¬ 
der CPC, Atari ST oder irgendeinen 
anderen Computer am besten füttern. 

Anspruchsvolle Exoten - wie bei¬ 
spielsweise Prolog und Lisp - dürfen 
natürlich nicht fehlen in einem Heft, das 
sich »Programmiersprachen« auf die 
Fahne geschrieben hat. Über künstli¬ 
che Intelligenz, was immer das heißen 
mag, erfahren Sie also auch einiges. 

Programmiersprachen sind ein wei¬ 
tes Thema, das mehr als nur ein Heft fül¬ 
len würde. Deshalb sind wir auf Ihr Inter¬ 
esse gespannt. Schreiben Sie uns, ob 
Sie mehr über »Fremdsprachen« für 
Ihren Computers lesen wollen. Denn 
wie jede Ausgabe von Happy-Compu- 
ter orientieren sich auch unsere Son¬ 
derhefte am Interesse unserer Leser. 
Wir wollen schließlich über das berich¬ 
ten, was Sie lesen wollen - Sie, unser 
Leser. 

In diesem Zusammenhang möchte 
ich allen danken, die mir bei der Zusam¬ 
menstellung dieser Ausgabe geholfen 
haben. Besonders den Lesern unter 
Ihnen, die uns ihr Wissen zur Verfügung 
gestellt haben. Machen Sie bitte weiter 
so mit. 

Zu diesem Sonderheft haben wir für 
einige Computer jeweils eine »Program- 
miersprachen-Schnupper-Diskette« zu¬ 
sammengestellt. Auf ihnen finden Sie 
Programme, die die verschiedenen Fä¬ 
higkeiten der Sprachen offenbaren. Viel 
Spaß damit! Bei den Listings hingegen 
müssen Sie darauf achten, daß nicht 
jeder Compiler alles kann. Aber auspro¬ 
bieren hilft immer - und schult das Ver¬ 
ständnis für das Programmieren. 

Ihr Andreas Hagedorn 
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Wer kennt sie nicht: Pascal, die Sprache, die strukturierte Pro¬ 
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zeduren, Funktionen, Datentypen etc., kommt hier zur 
Sprache. 26 


Vor Jahren gab es nur eine Handvoll Programmiersprachen. 
Inzwischen steht man ratlos vor einer Vielzahl von Sprachen und 
ihren Dialekten. Unsere Marktübersicht gibt eine Hilfestellung 
bei der Auswahl. 156 


jeder Beziehung: Turbo-Pascal. Ein 
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Hier geht es um Prolog, Lisp und Logo, die sogenannten Program¬ 
miersprachen für Künstliche Intelligenz und die »5. Computer- 
Generation«. Diese Sprachsysteme unterstützen die Fähigkeit, 
von Programmen dazuzulernen. 149 


dttft Sonderheft 5186 


C ist eine faszinierende Sprache, die immer mehr ins Gespräch 
kommt. Mit Recht, denn sie bietet sowohl die vorbildliche Struktu¬ 
rierung von Pascal, als auch hohe Geschwindigkeit durch optima¬ 
len Aufbau ihres Codes. 78 
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Programmier¬ 
sprachen — 

Babel läßt grüßen 


Wer den Computer zu seinem 
Hobby oder Beruf macht, steht in 
mehrerer Hinsicht vor einer 
schwierigen Wahl. Er muß sich 
zwischen einer Vielzahl von Peri¬ 
pherie, Betriebssystemen und 
Programmiersprachen entschei¬ 
den. Hier zeigen wir Ihnen die 
wichtigsten Programmierspra¬ 
chen, ihre Entwicklungsge¬ 
schichte und was sie können. 

K ommunikation braucht Spra¬ 
che. Wenn sich zwei Men¬ 
schen miteinander unterhal¬ 
ten, benutzen sie dazu das gespro¬ 
chene Wort oder, sofern sie nicht die 
gleiche Sprache verstehen, Hände und 
Füße. Dieses Prinzip läßt sich nicht 
ohne weiteres auf die Verständigung 
zwischen Mensch und Computer 
anwenden. Kommunikation ist der 
Datenaustausch zwischen mehreren 
Parteien, die einander verstehen müs¬ 
sen, jedoch ist ein Computer im Urzu¬ 
stand alles andere als verständig. Er 
besitzt lediglich eine mehr oder weniger 
große Anzahl von Fähigkeiten, die er 
sehr schnell ausführen, aber nicht selb¬ 
ständig koordinieren kann. 


Befehl und 
Gehorsam 


Programmiersprachen sind, im Ge¬ 
gensatz zur weitverbreiteten Meinung, 
kein Mittel, um sich mit dem Computer 
zu unterhalten. Sie dienen lediglich 
dazu, dem Computer über eine Kette 
von Befehlen mitzuteilen, was er Schritt 
für Schritt zu tun hat. Programmierung 
wurde lange Zeit unter dem Hauptau¬ 
genmerk der Mensch-Maschine-Kom- 
munikation betrachtet. Der wichtigste 
Aspekt lag darin, zu Problemlösungen 
unter möglichst effizienter Nutzung der 
Maschinenkapazität zu gelangen. Seit 
Computer in jüngster Zeit eine stärkere 
Verbreitung erfahren haben, rückte 
jedoch ein zweiter Gesichtspunkt 


immer mehr in den Vordergrund: Die 
Programme werden komplexer und der 
Wartungsaufwand (Korrektur oder 
Erweiterung eines Programms) immer 
größer. Dadurch, daß an vielen Pro¬ 
grammen große Teams über lange Zeit¬ 
räume hinweg arbeiten, geraten Pro¬ 
grammiersprachen auch mehr und 
mehr zum Kommunikationsmittel zwi¬ 
schen diesen Gruppen von Menschen. 
Das bedeutet, daß ein guter Program¬ 
mierer immer seine Programme auch 
für seine Nachwelt verständlich gestal¬ 
ten, und seine Kunstfertigkeit nicht mit 
der Anwendung von Programmiertricks 
unter Beweis stellen sollte. Einem 
potentiellen Benutzer, der das Pro¬ 
gramm lesen und eventuell ändern muß, 
sollte die Funktionsweise möglichst 
schon beim Lesen klar werden. 

Statt »Programmiersprache« wäre die 
Bezeichnung »Kommandosequenz« ei¬ 
gentlich richtiger. Was dem Computer 
befohlen wird, führt er geduldig und 
beliebig oft aus, einzige Bedingung ist 
ein fehlerfreies Programm. Einige Psy¬ 
chologen behaupten denn auch, die 
Beliebtheit von Computern sei darauf 
zurückzuführen, daß viele Menschen 
ihre diktatorischen Triebe beim Pro¬ 
grammieren ausleben! 

Wenden wir uns der Frage zu, die 
wohl jeden Computeranwender irgend¬ 
wann einmal bewegt, nämlich, was 
denn welche Programmiersprache 
wohl zu leisten vermag. 

Im Laufe der Computergeschichte, 
die seit den ersten Relaisrechnern Kon- 
rad Zuses nicht mehr als ein halbes 
Jahrhundert zählt, wurde eine Unzahl 
Programmiersprachen, Spracherweite- 
rungen und Dialekte entwickelt. Dabei 
standen immer zwei Überlegungen im 
Vordergrund. Zum einen mußten die 
Hardwarevoraussetzungen berück¬ 
sichtigt werden. Zum anderen orien¬ 
tieren sich die Programmentwickler an 
den zu bearbeitenden Problemstellun¬ 
gen und den Bedürfnissen der Anwen¬ 
der. Je nach Computertyp und Pro¬ 
blemstellung werden vom Programmie¬ 
rer verschiedene Programmstrukturen 
(Module, Blockkonzept, Verbundty¬ 
pen), spezialisierte Befehle und unter¬ 


schiedliche Datentypen (Integer, Real, 
Complex, String, etc.) benötigt. Auf die¬ 
ser Grundlage entwickelten sich neben 
den bekannten Sprachen eine unüber¬ 
schaubare Anzahl Exoten, die meistens 
nur in einzelnen Universitäten einge¬ 
setzt wurden. 


Vielfalt — Freud 
oder Leid? 


An kaum einem Punkt scheiden sich 
die Geister in der Computerszene so 
stark wie in der Auswahl der Beurteilung 
der Programmiersprachen. Wer den 
Heimcomputer zu seinen Hobbies 
zählt, lernt in aller Regel zunächst fleißig 
Basic. Schließlich gehört ja der Basic- 
Interpreter zum Lieferumfang. Im Laufe 
der Zeit werden die eigenen Pro¬ 
gramme immer länger und unübersicht¬ 
licher, die einzelnen Programmteile 
sind durch ein unentwirrbares Geflecht 
von GOTO-Anweisungen miteinander 
verknotet (böse Zungen sprechen des¬ 
halb von »Spaghetti-Code«). 

Mit dem wachsenden Bedürfnis nach 
Strukturierung, die in Basic nur jemand 
mit viel Selbstdisziplin erreicht, und 
nach Geschwindigkeit, die für Basic ein 
Fremdwort ist, sieht man sich nach Aus¬ 
wegen um. Dabei fühlt sich die eine 
Gruppe wie magisch von dem Begriff 
Assembler angezogen und begibt sich 
auf die unterste Sprachebene, um 
fortan in mühseliger Kleinarbeit Byte für 
Byte zu programmieren. Hiermit wird 
zwar ein Höchstmaß an Geschwindig¬ 
keit möglich, aber die Übersichtlichkeit 
kommt nach wie vor zu kurz. Die zweite 
Gruppe der Programmier-Gemeinde 
wendet sich deshalb modernen Hoch¬ 
sprachen zu, wie Pascal, Förth, Modula, 
Comal, Ada, C und so weiter. Diese 
Sprachen zwingen den Programmierer 
dazu, seine Programme modular (dies 
bedeutet, einzelne Aufgaben werden in 
»Paketen« oder »Modulen« zusammen¬ 
gefaßt) zu gestalten. Durch die so 
erreichte Übersichtlichkeit lassen sich 
Programme später von jedermann, 
Sprachkenntnisse vorausgesetzt, 
nachvollziehen und ändern. Zudem 
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sind einige dieser Sprachen sehr 
assemblernah, wie zum Beispiel Forth, 
womit auch Geschwindigkeit kein Pro¬ 
blem mehr ist. Moderne Programmier¬ 
sprachen unterstützen also Programm¬ 
strukturen und gehen ebenso mit 
Daten- und Kontrollstrukturen problem¬ 
gerecht um. 

Dennoch werden im professionellen 
Bereich (Universitäten, Verwaltung) 
»klassische« Sprachen bevorzugt, wie 
PL/1, Cobol und Fortran. Es sprechen 
auch gute Gründe dafür: So sind die 
neueren Programmiersprachen oftmals 
auf der vorhandenen Hardware noch 
nicht verfügbar, oder sie vertragen sich 
mit bereits vorhandenen Softwarekom¬ 
ponenten nicht. Ein anderer Faktor sind 
die Vorkenntnisse des Wartungsperso¬ 
nals und und und .... Jeder Informatik¬ 
student, jeder Praktiker kann diese 


Reihe beliebig fortsetzen. Und schließ¬ 
lich ist gute Software immer noch der 
Triumph des Programmierers, nicht der 
der Programmiersprache. 

Seit das Betriebssystem CP/M auf 
Computern wie dem Commodore 128, 
Schneider CPC, oder dem Atari ST 
einen neuen Frühling erlebt, werden 
diese Klassiker neuerdings auch auf 
Heimcomputern interessant. Sehr 
wahrscheinlich wird sich ein breiter 
Anwenderkreis hierfür finden. Welcher 
Programmierer begrüßt es nicht, wenn 
er seine Produkte teilweise in der 
»guten Stube« austesten kann? 

Eine Sonderstellung unter den Pro¬ 
grammiersprachen nehmen die Spra¬ 
chen für »künstliche Intelligenz« (Kl) 
ein. Deren bekannteste Vertreter hei¬ 
ßen Lisp und Prolog. Kl-Sprachen 
bauen auf einem grundlegend neuen 
Konzept auf, bei dem der Programmie¬ 
rer dem Computer im Dialog sein Pro¬ 


blem mitteilt. Wegen des hohen Spei¬ 
cherbedarfs sind Kl-Programme auf 
Microcomputern nur sehr einge¬ 
schränkt einsatzfähig. Dies wird sich 
jedoch bald ändern. Man darf gespannt 
sein, wie sich Kl auf den 16-Bit- 
Computern entwickeln wird, die ja nicht 
nur in punkto Schnelligkeit, sondern 
auch im Speicherangebot einen ganz 
neuen Standard setzen. Der Künstli¬ 
chen Intelligenz ist in diesem Sonder¬ 
heft ein eigener Beitrag gewidmet. 

Fassen wir zusammen: Sinnvoll las¬ 
sen sich die Programmiersprachen in 
vier Gruppen unterteilen: 

1. Assemblersprachen: Sie bieten 
den Vorteil, daß sie die Möglichkeiten 
der Hardware optimal ausnutzen. 
Assembler versteht jeder Prozessor 
unmittelbar. Jede höhere Programmier¬ 


sprache muß beim Programmablauf 
erst in Assemblercode übersetzt wer¬ 
den und ist deshalb weniger universell. 
Gegen Assembler sprechen die müh¬ 
selige Programmierung, die Gebunden¬ 
heit an Prozessor und Hardware sowie 
die schwierige Wartung. 

2. Klassische Hochsprachen: Sie 
sind zur Zeit am weitesten verbreitet, 
aber genügen wegen ihrer altertümli¬ 
chen Konzeption den Anforderungen 
moderner Programmierung nicht mehr. 

3. Moderne Hochsprachen: Sie kön¬ 
nen sich gegen die »Alteingesessenen« 
nur langsam durchsetzen. Sie bieten 
Strukturierungshilfen, ausgeprägte 
Möglichkeiten der Datenbeschreibung, 
und unterstützen die Selbstdokumenta¬ 
tion des Programmtextes durch eine 
angemessene Verbalisierung. 

4. Kl-Sprachen sind heutzutage 
noch Gegenstand intensiver Forschun¬ 
gen und stellen eine völlig neue und 


andersartige Klasse von Programmier¬ 
sprachen dar. In diesem Beitrag wollen 
wir uns deshalb nicht weiter mit ihnen 
beschäftigen. 

Wie Sie gesehen haben, ist der Spra¬ 
chenwald immer noch sehr dicht, auch 
wenn man sich auf die Auswahl der 
wichtigsten Programmiersprachen 
beschränkt. Ein bedeutendes Auswahl¬ 
kriterium sind die qualitativen Merk¬ 
male. Bevor wir diese besprechen, 
noch zu einigen zentralen Begriffen: 

Algorithmus - Jedem Programm lie¬ 
gen ein oder mehrere Lösungsverfah- 
ren zugrunde, oft auch als Algorithmus 
bezeichnet. Ein solcher Algorithmus ist 
definiert als eindeutige und vollständige 
Vorschrift zur Lösung einer Problem¬ 
klasse mit einer Abfolge von Schritten, 
die in einem endlichen Zeitraum ausge¬ 
führt werden. 

Daten heißen dabei die Objekte, die 
der Algorithmus bearbeitet. 

Programm nennt man folgerichtig die 
maschinengerechte Aufbereitung der 
Daten und des Algorithmus. Diese Auf¬ 
bereitung geschieht mit Hilfe einer 
künstlichen Sprache, eben der Pro¬ 
grammiersprache. Diese setzt sich 
aus einer Menge von Zeichen zusam¬ 
men, die ihrerseits nach bestimmten 
Regeln zusammengesetzt werden kön¬ 
nen. Die somit geschaffenen Sprach- 
elemente werden von der Maschine 
unmittelbar (als Maschinensprache) 
oder unter Zuhilfenahme von Überset¬ 
zungsprogrammen (als Hochsprache) 
»verstanden«. Der Übersetzer stellt 
nichts weiter dar, als einen speziellen 
Algorithmus, der in der Lage ist, alle 
Befehle einer Hochsprache in den ent¬ 
sprechenden Assemblercode zu trans¬ 
formieren. Er ist grob vergleichbar mit 
einer Bibliothek von kleinen Assembler- 
Unterprogrammen, wobei jedem Befehl 
der Hochsprache eines dieser Unter¬ 
programme zugeordnet ist. 


Compiler und 
Interpreter 


Übersetzungsprogramme gliedern 
sich in zwei Typen, die die gleiche Auf¬ 
gabe auf unterschiedliche Weise erfül¬ 
len. Als erstes sind die Compiler zu 
nennen. Sie tauchten auch in der 
geschichtlichen Entwicklung zuerst 
auf. Der Compiler übersetzt den Pro¬ 
grammtext (Quellcode) in einem oder 
mehreren Durchgängen (Passes) kom¬ 
plett in Assemblercode (Objektcode). 
Der Compiler selbst wird daher beim 
Programmlauf nicht mehr benötigt. 
Natürlich benutzt man für unterschiedli¬ 
che Computer, mit verschiedener Hard¬ 
ware und Maschinensprache auch 
unterschiedliche Compiler. 





















Der zweite im Bund der Dolmetscher 
nennt sich Interpreter. Er ist der fleißi¬ 
gere von beiden. Zunächst muß der 
Quellcode direkt im Arbeitsspeicher 
des Computers abgelegt werden. 
Sodann beginnt das Interpretieren. Das 
heißt nichts weniger, als daß der Inter¬ 
preter während des Programmlaufs 
Befehl für Befehl holen muß. Natürlich 
ist diese Vorgehensweise in höchstem 
Maße unökonomisch und langsam. 
Während ein Compiler die ersten drei 
der genannten vier Arbeiten nur genau 
einmal ausführen muß, beschäftigen sie 
den Interpreter bei jeder Programmwie¬ 
derholung aufs neue. 

Zu Beginn des Computerzeitalters, 
als Rechenzeit noch sehr teuer war, 
wurden daher ausschließlich Compiler 
entwickelt. Interpreter konnten sich 
erst mit höheren Prozessorleistungen 
durchsetzen. Sie werden auch heute 
noch in Profikreisen wegen ihres 
gemächlichen Arbeitstempos ver¬ 
schmäht. 

Die Qualität 
von Programmier¬ 
sprachen 

Um beurteilen zu können, welche 
Eigenschaften gute Programmierspra¬ 
chen charakterisieren, wenden wir uns 
zunächst der Frage zu, welche Anfor¬ 
derungen an ein hochwertiges Pro¬ 
gramm zu stellen sind. 

Die Forderung nach Fehlerfreiheit 
erscheint auf den ersten Blick banal. 
Die Erfahrung zeigt nämlich, daß 
100%ig korrekte Programmsysteme ab 
einem gewissen Umfang kaum noch 
möglich sind. Hat ein Programm eine 
gewisse Komplexität erreicht, ist es fast 
unmöglich, seine Korrektheit zu bewei¬ 
sen, also Testdurchläufe zu finden, die 
tatsächlich alle Eventualitäten berück¬ 
sichtigen. Als Maß für die Korrektheit 
eines Programmes wird deshalb häufig 
von der Zuverlässigkeit gesprochen. 
Diese gibt die Wahrscheinlichkeit an, 
mit der ein Programm für eine Zahl von 
Anwendungsfällen in einer bestimmten 
Zeitspanne fehlerfrei arbeitet. Gerade 
die jüngste Vergangenheit hat hierfür im 
Bereich der Mikrocomputer einige 
negative Beispiele geliefert. So konn¬ 
ten Fehler in einigen Betriebssystemen 
oftmals erst nach der Auslieferung der 
neuen Geräte beseitigt werden. 

Verständlichkeit deckt sich mit Forde¬ 
rungen nach Lesbarkeit, Überschau¬ 
barkeit und Selbstdokumentation. Pro¬ 
gramme sollten sich, sobald sie eine 
gewisse Länge überschreiten, in funk¬ 
tionelle Einheiten gliedern. Andernfalls 
wird der Programmierer oft, noch wäh¬ 


rend er an ein und demselben Pro¬ 
gramm arbeitet, an der selbst produ¬ 
zierten Unordnung scheitern. Man dif¬ 
ferenziert unter dem Aspekt der Ver¬ 
ständlichkeit zwischen der statischen 
und der dynamischen Programmstruk¬ 
tur. Die statische Strukturgestaltung 
dient dem Ziel, ein übersichtliches Lay¬ 
out des Programmtextes zu gestalten. 
Hiermit wird der menschlichen Wahr¬ 
nehmung Rechnung getragen, die sehr 
stark auf optischen Wahrnehmungen 
beruht. Ergänzend trägt die dynami¬ 
sche Strukturierung dazu bei, daß Pro¬ 
grammabläufe unmittelbar aus dem 
Quelltext ersichtlich werden. 

Ein Faktor der an diese Zusammen¬ 
hänge anknüpft, ist die Änderbarkeit 
von Programmen. Wartungsfreundlich¬ 
keit bedeutet einerseits, daß Pro¬ 
gramme leicht an modifizierte Aufga¬ 
benstellungen angepaßt werden kön¬ 
nen. Andererseits spielt die Portabilität 
eine Rolle, wenn ein Programm zum Bei¬ 
spiel in einer neuen Softwareumge¬ 
bung lauffähig gemacht werden soll. 

Universalität sollte es einem guten 
Programm ebenfalls ermöglichen, ähn¬ 
liche Aufgabenstellungen und Abwand¬ 
lungen zu lösen. 

Im Zusammenhang mit der Benutzer¬ 
freundlichkeit sollten Programme einen 
Dialog mit dem Benutzer ermöglichen 
und Eingabefehler abfangen, ohne fal¬ 
sche Ergebnisse oder gar Systemab¬ 
stürze zu liefern. 

Effizienz hat im Laufe der Entwick¬ 
lung stark an Bedeutung verloren. Zu 
Zeiten, da Speicherplatz noch Mangel¬ 
ware war, galten die kürzesten Pro¬ 
gramme als die besten. Das ging natür¬ 
lich zu Lasten der Übersichtlichkeit. 
Effizienzstreben wird heute daher nur 
noch mit Skepsis betrachtet. 

Die hier genannten Qualitätsmerk¬ 
male stehen offensichtlich in positiver 
und negativer Wechselwirkung zuein¬ 
ander. So geht Übersichtlichkeit mei¬ 
stens zu Lasten der Effizienz, verbes¬ 
sert dagegen aber die Änderbarkeit. 

Beginnen wir jetzt damit, die Anforde¬ 
rungen an eine ideale Programmier¬ 
sprache zu formulieren. Die Qualität 
einer Computersprache läßt sich 
danach beurteilen, inwieweit sie die 
Entwicklung von Programmen unter¬ 
stützt, die den uns bekannten Anforde¬ 
rungen entsprechen. Die folgenden 
skizzierten Merkmale müssen im engen 
Zusammenhang miteinander betrach¬ 
tet werden. 

Beginnen wir mit einem Punkt, der 
besonders den Einsteiger interessie¬ 
ren wird: 

Die Erlernbarkeit einer Sprache hängt 
wesentlich von deren Struktur und 
Umfang ab. Sie ist sehr viel einprägsa¬ 
mer, wenn die Zahl der Schlüsselwörter 
gering und das Sprachkonzept durch¬ 


gängig ist. Ebenso gewährleistet eine 
einfache Benutzung, wenn der Pro¬ 
grammierer sein Problem bequem mit 
einer breiten Palette von Ausdrucks¬ 
möglichkeiten lösen kann. 

Die Einheitlichkeit ist ein ebenso 
wichtiger wie unscharfer Begriff. Er soll 
im großen und ganzen bedeuten, daß 
für eine bestimmte Leistung möglichst 
nur genau ein Sprachmittel zur Verfü¬ 
gung steht. 

Kriterien für eine 
ideale Sprache 

Kompaktheit steht mit Einfachheit in 
Einklang. Hierbei ist nicht von der 
»Würze der Kürze« die Rede, sondern 
vielmehr von der Mächtigkeit der 
Sprachkonzepte. Der Bauplan der Spra¬ 
che muß eine geringe Anzahl verschie¬ 
dener Grundkonzeptionen aufweisen, 
wie mathematische Operationen, Ein- 
und Ausgabe, Datenstrukturierung. 
Andererseits soll Kompaktheit ein 
gewisses Maß an Redundanz (= alles 
was man in der gleichen Sprache auf 
andere Weise auch darstellen kann) an 
der richtigen Stelle nicht verhindern. 
Dies fördert die Verständlichkeit und 
Zuverlässigkeit. Beispielsweise sind 
Datentypen im Grunde genommen 
redundant, doch wer möchte sich 
schon mit einer Sprache herumschla¬ 
gen, die ausschließlich den Datentyp 
»Zeichen« kennt? 

Die Sprache Basic wird von vielen als 
katastrophal eingestuft. Das hat einen 
guten Grund: Die Förderung nach Loka¬ 
lität wird von Basic so gut wie gar nicht 
unterstützt. Mit diesem Begriff ist 
gemeint, daß die Teile einer bearbeite¬ 
ten Aufgabe, die logisch zusammenge¬ 
hören, auch im Programmtext in physi¬ 
scher Nachbarschaft stehen sollten. 
Die berühmt-berüchtigten Sprungbe¬ 
fehle bewirken jedoch das genaue 
Gegenteil. 

Ein ganz anderes Kriterium ist die 
Sicherheit der Programmiersprache. 
Dazu zählt das Unterstützen der Fehler¬ 
freiheit eines Programmes durch 
Sprachelemente. »On Error Goto« ist 
ein solcher weitverbreiteter Befehl. Des 
weiteren sind Sprachelemente zu nen¬ 
nen, die die Testphase des Programms 
fördern. 

Der »Wildwuchs« der Implementie¬ 
rungen (= Anpassungen eines 
bestimmten Computers) bei Program¬ 
miersprachen, insbesondere bei den 
älteren, ist hinlänglich bekannt. Dia¬ 
lekte, Erweiterungen, aber auch Ein¬ 
schränkungen beeinträchtigen die Por¬ 
tabilität von Programmen im besonde¬ 
ren Maße. Mit der Standardisierung 

Fortsetzung auf Seite 10 
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Das Angebot dieser Ausgabe: 

Programmiersprachen: 

Wer sich näher mit Programmiersprachen beschäftigen will, für den haben wir 
eine Schnupper-Diskette zusammengestellt. Auf ihr finden Sie die für Ihren Com¬ 
puter interessantesten Programme dieser Ausgabe. 

Außerdem haben wir unser Archiv durchstöbert. Routinen aus früheren Ausga¬ 
ben von Happy-Computer, 64er und Computer Persönlich, die in Pascal, C oder 
Förth geschrieben sind, haben wir gleich mit auf die Diskette geschrieben. Keine 
Angst, daß Sie diese Programme ohne Beschreibung nicht gebrauchen kön¬ 
nen. In der Datei »README« finden Sie die notwendige Beschreibung. Die 
Schnupper-Diskette gibt es für die Schneider-Computer, den Commodore 64 
und den Commodore 128. Im 64er-Modus des C128 können sie natürlich auch 
die 64er-Diskette verwenden. 

Diskette für Schneider-Computer, Best.-Nr. LH 86S5 SD, DM 34,90* (sFr. 29,50/öS 349/) 
Diskette für C64, Best.-Nr. LH 86S5 CD, DM 29,90* (sFr. 24,90/öS 299/) 

Diskette für C128, Best.-Nr. LH 86S5 8D, DM 29,90* (sFr. 24,90/öS 299/) 


Programme aus früheren Ausgaben: 


Happy-Computer, Ausgabe 5/86 
Commodore 64, Commodore 128 
Radish-IWa 

Ein Kletter- und Sammelspiel für den C64. 

Ultraboot. 

Ergänzung zu »Ultraload Plus«. 104 zusätzliche 
Blöcke auf der Diskette. 

Simple Sound. 

Eine kleine Soundbibliothek bietet Klänge für 
jede Gelegenheit 
Aus Ausgabe 4/86. 

Quadrophenia. 

Spiel des Monats für den Commodore 64 

Kurven. 

Mathematische Kurven auf dem C128 schnell 
programmiert. (Läuft nicht im C64-Modus!) 

Kalender. 

Ein Kalender für die Jahre bis 2000. 

Auto-Boot 128. 

Das Programm nutzt die Fähigkeit des C 128, 
CP/M-Programme automatisch zu booten 
(laden). (Nicht für C64). 

Widerstände. 

Eine Utility, die Ihnen hilft, Widerstandswerte 
aus Farbskalen in numerische Werte umzurech¬ 
nen. Aus Ausgabe 5/86. 

Diskette für den C64/C128 
Bestell-Nr. LH 8605 CD 
DM 29,90*/sFr. 24,90/ÖS 299/ 


Happy-Computer, Ausgabe 4/86 

Schneider CPC 

D-Mon. 

Daten auf Diskette Byte für Byte lesen und än¬ 
dern. Fehlerhafte Dateien korrigieren und retten. 


GOTO XY (nur CPC 464). 

Eine mächtige RSX-Befehlserweiterung, die 
erlaubt, das Ziel von GOTO-GOSUB-Befehlen 
mit Hilfe einer Variablen zu bestimmen. 

Accept. 

Ein komfortabler Ersatz für den normalen 
INPUT-Befehl, mit dem sich jetzt die maximale 
Eingabe-Länge begrenzen läßt. 

Turbo-Screen (nur CPC 464). 

Mit dieser RSX-Erweiterung machen Sie der 
Bildschirmausgabe im Modus 2 Beine 
Aus Ausgabe 2/86. 

Explora. 

Mit diesem Prüfsummen-Generator entfällt die 
lästige und zeitaufwendige Fehlersuche. 

Stack-Manipulation (nur CPC 464). 

Basic-Programmierung mit vier RSX-Befehlen. 
Aus Ausgabe 3/86. 

Tool-Basic. 

44 neue RSX-Befehle für Grafik-, Sprite-, Dis¬ 
ketten- und Kassetten-Programmierung. 

Achtes Bit. 

Endlich Abhilfe für den Umstand, daß der 
Schneider CPC über die Drucker-Schnittstelle 
nur sieben Datenbits ausgibt. 

Mord im Computer. 

Das DFÜ-Spiel mit Adventure-Charakter. 

Aus Ausgabe 4/86. 

Best.-Nr. LH 8604 SK (Kassette) 

DM 29,90*/sFr. 24,90/öS 299/ 

Best.-Nr. LH 8604 SD (Diskette) 

DM 29,90*/sFr. 24,90/öS 299/ 


Happy-Computer, Ausgabe 3/86 
Commodore 64/Commodore 128 

Copter-Fight, Husky-Basic, Unser Sonnensy¬ 
stem, Wahlautomat, Softpaint 

Bestell-Nr. LH 8603 CD 
DM 29,90*/sFr. 24,90/öS 299/ 


Happy-Computer, Ausgabe 2/86 
Commodore 64 

Oval Pattern, Börse, Poster Hardcopy, 
Kassetten-Designer, Super-Sprite, Transbit. 

Alle 6 Programme auf Diskette für den 
Commodore 64/128. 

Bestell-Nr. LH 8602 CD 
DM 29,90*/sFr. 24,90/öS 299/ 


Happy-Computer, Ausgabe 1/86 
Commodore 64/Commodore 128 1 

Taxi. Aus Ausgabe 1/86. 

Musik und Farbe. Aus Ausgabe 12/85. 
SDB-Sprite Mover. Aus Ausgabe 1/86. 
ES-AE. Aus Ausgabe 1/86. 

Ultraload. Aus Ausgabe 1/86. 

Error 64. Aus Ausgabe 1/86. 

Scroll 64. Aus Ausgabe 1/86. 

Schatzsuche. Aus Ausgabe 12/85. 

SLAD. Aus Ausgabe 12/84. 

Alle 9 Programme auf Diskette für den 
Commodore 64/128 
Bestell-Nr. LH 8601 CD 
DM 29,90*/sFr. 24,90/öS 299/ 


Happy-Computer, Ausgabe 12/85 
Atari 800XL/130XE/800 
Bestell-Nr. LH 8512 B 
DM 29,90*/sFr. 24,90/öS 299/ 


Happy-Computer, Ausgabe 12/85 
Schneider CPC 

Diskette für den Schneider CPC. 
Bestell-Nr. LH 8512 G (Kassette) 
DM 29,90*/sFr. 24,90/öS 299/ 
Bestell-Nr. LH 8512 D (Diskette) 
DM 34,90*/sFr. 29,50/öS 349/ 

Happy-Computer, Ausgabe 11/85 
Commodore 64 
Bestell-Nr. LH 8511 A 
DM 29,90*/sFr. 24,90/öS 299/ 

Happy-Computer, Ausgabe 10/85 

Sinclair Spectrum 

Bestell-Nr. LH 8510 D 

DM 19,90*/sFr. 17,-/ÖS 199/ 

Atari 800XL 

Bestell-Nr. LH 8510 B 

DM 29,90*/sFr. 24,90/öS 299/ 

Happy-Computer, Ausgabe 9/85 
Commodore 64 

Bestell-Nr. LH 8509 A (Diskette) 
DM 29,90*/sFr. 24,90/öS 299/ 


Happy-Computer, Ausgabe 8/85 
Schneider CPC 464 
Bestell-Nr. LH 8508 G (Kassette) 
DM 29,90*/sFr. 24,90/öS 299/ 

Happy-Computer, Ausgabe 7/85 
Commodore 64 

Bestell-Nr. LH 8507 A (Diskette) 
DM 29,90*/sFr. 24,90/öS 299/ 

Happy-Computer, Ausgabe 6/85 
Commodore 64 

Bestell-Nr. LH 8506 A (Diskette) 
DM 29,90*/sFr. 24,90/öS 299/ 

Happy-Computer, Ausgabe 5/85 
Schneider CPC 464 
Bestell-Nr. LH 8505 G (Kassette) 
DM 29,90*/sFr. 24,90/öS 299/ 

Happy-Computer, Ausgabe 4/85 
Commodore 64 

Bestell-Nr. LH 8504 A (Diskette) 
DM 29,90*/sFr. 24,90/öS 299/ 

Happy-Computer, Ausgabe 3/85 
Schneider CPC 464 
Bestell-Nr. LH 8503 G (Kassette) 
DM 29,90*/sFr. 24,90/öS 299/ 


Happy-Sonderhefte 


Sonderheft 4/86: Schneider 
Bestell-Nr. LH 86S4 K (Kassette) 

DM 29,90*/sFr. 24,90/öS 299/ 
Bestell-Nr. LH 86S4 D (Diskette) 

DM 34,90*/sFr. 29,50/öS 349/ 

Sonderheft 3/86. 68000 
Bestell-Nr. LH 86S3 D (Diskette) 

DM 29,90*/sFr. 24,90/öS 299/ 

Sonderheft 2/86: ATARI 
Bestell-Nr. LH 86S2 D (2 Disketten) 
DM 34,90*/sFr. 29,50/öS 349/ 

Sonderheft 1/86: Schneider 
Bestell-Nr. LH 86S1 D (Diskette) 

DM 34,90 */sFr. 29,50/öS 349/ 
Bestell-Nr. LH 86S1 K (Kassette) 

DM 29,90*/sFr. 24,90/öS 299/ 

Sonderheft 2/85: Schneider 
Bestell-Nr. LH 85S2 D (3"-Diskette) 
DM 34,90*/sFr. 29,50/öS 349/ 
Bestell-Nr. LH 85S2 V (5^"-Diskette) 
DM 34,90*/sFr. 29,50/öS 349/ 
Bestell-Nr. LH 85S2 K (Kassette) 

DM 29,90*/sFr. 24,90/öS 299/ 

Sonderheft 1/85: Spectrum 
Bestell-Nr. LH 85S1 D (Kassette) 

DM 19,90*/sFr. 17,-/ÖS 199/ 


* inkl. MwSt. Unverbindliche Preisempfehlcng 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, 
oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 

Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 








befassen sich daher nationale und 
internationale Institute. Die wichtigsten 
sind das Deutsche Institut für Normung 
(DIN), das American National Standards 
Institute (ANSI) und die International 
Organization for Standardization (ISO). 
Die Benutzer akzeptieren allerdings die 
Standards unterschiedlich. So sind 
Standards von Basic nahezu unbe¬ 
kannt, während sie sich bei Sprachen 
wie Pascal oder Fortran zunehmend 
durchsetzen. 

Was für die Effizienz bei Programmen 
gesagt wurde, verkehrt sich bei den 
Sprachen in das genaue Gegenteil: Für 
den Übersetzer ist sie von großer Wich¬ 
tigkeit. Zum einen sollte der Überset¬ 
zungsvorgang effizient sein, da bei der 
Fertigstellung eines Programmes die 
Zahl der Testläufe meistens sehr hoch 
ist. Der wichtigere Grund aber ist, daß 
das erzeugte Maschinenprogramm im 
Hinblick auf Rechenzeit und Speicher¬ 
bedarf optimiert werden sollte. Soge¬ 
nannte »Optimierende Übersetzer« 
sind teilweise in der Lage, das erzeugte 
Maschinenprogramm effizienter zu 
gestalten, als dies der Benutzer durch 
Programmiertricks erreichen kann. 


Von Zuse bis Ada 


Wir besitzen nun ein gutes Hand¬ 
werkszeug, um Programmiersprachen 
nach den wichtigsten Gesichtspunkten 
theoretisch zu beurteilen. Fassen wir 
zusammen: Die entscheidenden Anfor¬ 
derungen an eine Sprache heißen 
Strukturierungshilfen, Selbstdokumen¬ 
tation, Datenbeschreibung, Benutzer¬ 
freundlichkeit und Zuverlässigkeit. 
Doch was nützt all die graue Theorie, 
wenn wir die Sprachen nicht kennen? 
Im folgenden werden daher die wichtig¬ 
sten unter den bisher behandelten 
Aspekten und im Rahmen ihrer 
geschichtlichen Entwicklung vorge¬ 
stellt. 

Die Entstehung der Programmier¬ 
sprachen orientiert sich immer auch an 
den Voraussetzungen der Hardware. 
Dies gilt insbesondere auch für die 
Gründerjahre. 

Als geistiger Urvater der Rechen¬ 
maschinen mit Programmsteuerung 
darf der Engländer Charles Babbage 
gelten. Er begann 1833 mit der Kon¬ 
struktion digitaler Rechenautomaten. 
Er legte seinen Maschinen aus Zahnrä¬ 
dern, Kurbeln und Hebeln zwei wichtige 
Erfindungen zugrunde, nämlich die 
Lochkartensteuerung und das Prinzip 
eines dekadischen Zählrades mit auto¬ 
matischem Zehnerübertrag. Babbages 
Projekte waren aber wegen fertigungs¬ 
technischer Schwierigkeiten nur in der 
Theorie funktionsfähig. Erst Elektro¬ 
mechanik und später die Elektronik 


machten die Rechenautomaten lang¬ 
sam zu Computern. 

Der erste Rechenautomat der Welt 
mit Programmsteuerung wurde 1941 
von Konrad Zuse in Betrieb genommen. 
Die Zuse Z3 war ein Relaisrechner, der 
bereits mit Dualzahlen arbeitete und zur 
Darstellung Gleitkommazahlen 

benutzte. Mit der Z3 waren neben den 
vier Grundrechenarten auch das Zie¬ 
hen von Quadratwurzeln und das 
Potenzieren möglich. Ein Nachbau des 
historischen Modells, das im Krieg zer¬ 
stört wurde, steht im Deutschen 
Museum in München. Der erste pro¬ 
grammierbare Rechner Amerikas ent¬ 
stand 1944. Er wurde von dem Mathe¬ 
matiker Howard H. Aiken mit Unterstüt¬ 
zung von IBM entwickelt und auf den 
Namen »Mark I« getauft. Er war jedoch 
ein Ungetüm von 16 m Länge und 35 
Tonnen Gewicht und zudem langsamer 
als die früher entwickelte Z3. 

Der Phase der Relaisrechner setzte 
der Einsatz von Elektronenröhren rasch 
ein Ende. Der bekannte ENIAC war die 
erste vollelektronische Rechenanlage 
der Welt und wurde 1945 in den USA 
fertiggestellt. Er erreichte gegenüber 
den Relaisrechnern bereits die 
2000fache Rechengeschwindigkeit. 

Während die Lochkarte nur eine 
starre Programmsteuerung ermög¬ 
lichte (keine Schleifen, keine logischen 
Entscheidungen) begann man bald, 
sich über die flexible Speicherprogram¬ 
mierung Gedanken zu machen. Als 
erstem gelang es dem Amerikaner John 
Neumann das genannte Problem auf 
einem Rechner zu verwirklichen. Der 
bereits 1944 von Neumann konzipierte 
Computer (EDVAC) erfüllte folgende 
Forderungen: Das Programm mußte, 
wie auch die zu verarbeitenden Daten, 
in der Maschine gespeichert werden. 
Außerdem benötigte man bedingte 
Befehle wie Vorwärts- und Rückwärts¬ 
verzweigungen. Jeden Befehl konnte 
zudem die Maschine selbst, wie jeden 
anderen Operanden ändern. 

Befehle bestanden aus einem 
Operations- und einem Adreßteil. Im 
Operationsteil wird eine Angabe 
gemacht was zu tun ist (zum Beispiel 
Ausführung einer Multiplikation), der 
Adreßteil zeigt an, wo sich die zu verar¬ 
beitenden Daten befinden und wohin 
sie anschließend zu übertragen sind. 
Hier ist also die Rede von den ersten 
Assemblersprachen, an deren Grund¬ 
prinzipien sich bis heute nicht geändert 
hat. 

Der Schritt von der starren Pro¬ 
grammsteuerung zum flexiblen Pro¬ 
gramm leitete die Wende vom Rechner 
zur Datenverarbeitung ein. Die Röhren¬ 
computer der ersten Generation 
erreichten mit dem SSEC (Selective 
Sequenz Electronic Calculator) Ende 


der vierziger Jahre einen Höhepunkt. 
Dieser besaß nicht weniger als 12000 
Elektronenröhren und etwa 21500 
Relais und wurde von 36 Lochstreifen- 
lesern gesteuert. Er führte die Berech¬ 
nungen der Mondbahn durch, die 20 
Jahre später im Apollo-Raumfahrtpro¬ 
gramm verwertet wurden. Mit dem Ein¬ 
zug der Transistortechnik und später 
mit den integrierten Schaltkreisen 
wuchsen fortan Rechnerlejstung und 
Speicherkapazität immer schneller. 
Dies war die Voraussetzung für die 
Schaffung der höheren Programmier¬ 
sprachen. 


Die frühen Jahre 
- Fortran 


Fortran ist die älteste der hier behan¬ 
delten Hochsprachen und setzt einen 
Meilenstein in der Geschichte. Anfang 
der fünfziger Jahre wuchs die Zahl der 
Computer rasch. An Serienfertigung 
war noch nicht zu denken und es war 
jedes Gerät ein Einzelstück mit eigener 
Hardware und eigenem Assembler. So 
wurde bald der Wunsch nach einer Pro¬ 
grammiersprache laut, die übertragbar 
und einfach zu programmieren sein 
sollte. 1952 wurde der Grundstein für 
Fortran gelegt, zu einer Zeit, da die Pro¬ 
grammierung nur wenigen Spezialisten 
und ausschließlich in Assembler mög¬ 
lich war. John W. Backus war einer der 
Federführenden, dem die Programmier¬ 
gemeinde Fortran zu verdanken hat. 

Der Hauptgrund für die Entwicklung 
war die Schwerfälligkeit der Assembler¬ 
programmierung. 75 Prozent der 
Kosten eines Rechenzentrums verur¬ 
sachte damals die Fehlersuche. Ver¬ 
ständlichkeit war daher ein wesentli¬ 
ches Entwurfsziel. Dadurch, daß die 
teuere Hardware optimal ausgenutzt 
werden mußte, waren die Rahmenbe¬ 
dingungen für Fortran bereits vorge¬ 
zeichnet. Vorrangig wurden Sprachele- 
mente implementiert, die der Speicher¬ 
und Laufzeiteffizienz nachkamen. 
Einige dieser Konzepte werden noch 
heute als sehr nachteilig angesehen - 
sind aber immer noch in Fortran enthal¬ 
ten. 

1955 erschien ein Programmier¬ 
handbuch, und zwei Jahre später 
wurde die erste Implementierung auf 
einer IBM 704 freigegeben. Damit 
stand Fortran erstmals einer breiten 
Zahl von Programmierern zur Verfü¬ 
gung. 

Der Name steht für FORmula TRANs- 
lating System (Förmelübersetzer). Und 
genau dort liegt auch der Anwendungs¬ 
schwerpunkt der Sprache. Rechneri¬ 
sche Probleme lassen sich in ihr leicht 
und natürlich ausdrücken. Damit wird 


















der Erlernbarkeit der Sprache Rech¬ 
nung getragen. Im ingenieurwissen¬ 
schaftlichen und mathematischen 
Bereich gilt Fortran auch heute noch als 
die wichtigste Programmiersprache. So 
bietet sie zum Beispiel neben den allge¬ 
mein gebräuchlichen Zahlentypen Real 
(Fließkommazahlen) und Integer 
(Ganze Zahlen) auch noch den Typ 
»Double Precision« für Rechnungen mit 
höherer Genauigkeit sowie »Logical« für 
boolsche Operationen. Großrechner- 
Versionen beinhalten zudem noch den 
Typ »Complex«, der in der theoreti¬ 
schen Elektrotechnik eine sehr wich¬ 
tige Rolle spielt. 

Das Format dieser Sprache ist streng 
zeilenorientiert und erlaubt normaler¬ 
weise nur einen Befehl je Zeile. Das 
hängt damit zusammen, daß Fortran 
zunächst als lochkartenorientierte 
Sprache entstand. Grundsätzlich 
mußte man damals für jede neue Anwei¬ 
sung eine neue Lochkarte (beziehungs¬ 
weise Zeile) verwenden. Wie auch in 
Basic, das später aus Fortran entstand, 
mußte bei den ersten Versionen viel mit 
dem Goto-Befehl umhergesprungen 
werden. Neuere Versionen wie Fortran 
V und Fortran 77 bieten demgegenüber 
schon strukturierende Sprachelemen- 
te wie IF....THEN....ELSE...ENDIF. 

Nachdem die 1958 geschaffene Ver¬ 
sion Fortran II eine mäßige Verbreitung 
gefunden hatte, entstand 1962 das in 
weiten Kreisen akzeptierte Fortran IV. 
Den fortschreitenden Auswüchsen 
immer neuer Versionen wurde 1966 
Einhalt geboten, mit einer Version, die 
größtenteils mit Fortran IV identisch 
war. Schließlich überarbeitete das ANSI 
Fortran 66 im Jahr 1977 nochmals und 
beseitigte einige eklatante Mängel. 

Unter CP/M ist Fortran derzeit für fast 
alle Mikrocomputer mit Z80-Prozessor 
erhältlich, ebenso wie eine Reihe von 
Fortran-Implementationen für MS-DOS- 
Computer. 


Cobol — 

die Geschäftige 


Die Programmiersprache Cobol ent¬ 
stand 1959 auf Initiative des US- 
Verteidigungsministeriums. Zu dieser 
Zeit begann Fortran sich gerade auszu¬ 
breiten. Was noch fehlte, war eine Spra¬ 
che für den kommerziellen und kauf¬ 
männischen Einsatz. So entwickelte 
man Cobol mit dem Ziel, große Daten¬ 
bestände verarbeiten zu können und 
die Ein/-Ausgabe zu unterstützen. 
Insbesondere die ersten Förtran- 
Versionen waren hierfür ungeeignet. 
Ende der fünfziger Jahre wurde die 
Codasyl-Entwicklungsgruppe aus Ver¬ 
tretern der Computerindustrie und der 
amerikanischen Regierung gegründet. 


Schon 1960 stellte diese Gruppe die 
erste Version mit der Bezeichnung 
Cobol-60 vor. Sie war wesentlich an die 
weniger bekannte Sprache Comtran 
(COMmercial TRANslator) angelehnt. 
Aufgrund der hastigen Entwicklung von 
Cobol innerhalb eines halben Jahres 
ergaben sich viele Ungereimtheiten, 
die sich teilweise durch alle Neuent¬ 
würfe hindurchschleppten und auch 
heute noch nicht ganz beseitigt sind. 
Cobol-61 war dann die Grundlage für 
alle späteren Versionen. Sie war zu 
Cobol-60 nicht kompatibel. 1965 
wurde als wesentliche Neuerung die 
Unterstützung von Massenspeichern 
und Tabellen mit eingebracht. 

Die Sprachelemente von Cobol sind 
je nach ihrer Funktion in Module zusam¬ 
mengefaßt. Das ANSI entwickelte bis 
1974 einen zwölf Module umfassen¬ 
den Standard, namentlich Cobol 
ANS-74. Er wurde 1980 nochmals ver¬ 
bessert. Den jeweils neuesten Stand 
veröffentlicht das CODASYL-Komitee 
im Abstand von drei Jahren. Der Stan¬ 
dard für die Bundesrepublik Deutsch¬ 
land ist in der DIN-Norm 66028 nach¬ 
zulesen. 

Die kurze Darstellung der Entwick¬ 
lungsgeschichte läßt erkennen, daß 
Cobol ebenfalls eine alte Sprache ist. 
Cobol-Programme müssen aus heuti¬ 
ger Sicht als mangelhaft angesehen 
werden. 

Ursprünglich verfolgte man wie bei 
keiner anderen Sprache das Ziel der 
Lesbarkeit des Programmtextes. Die 
Sprache sollte dann auch leicht erlern¬ 
bar sein. Der Programmtext erinnert 
stark an (englische) Prosa. Cobol- 
Programme simulieren nämlich die 
natürliche englische Sprache. So wird 
zum Beispiel jeder Befehl mit einem 
Verb eingeleitet. Die Grundrechenarten 
stehen nicht als Symbole, sondern als 
Befehlswörter (add, divide) zur Verfü¬ 
gung. Ebenso werden logische Opera¬ 
toren ausgeschrieben. Ein Beispiel: 
Wenn die Variable A größer ist als Null, 
soll der Variablen B die Summe der 
Variablen C und A zugeordnet werden. 
In Basic würde man das so formulieren: 
IF A>0 THEN B= C+A 
Daraus wird in Cobol: 

IF A GREATER THAN ZERO ADD C TO 
A GIVING B. 

Daß so aus komplizierteren mathema¬ 
tischen Formeln monströse Gebilde 
werden, leuchtet ein. Da höhere mathe¬ 
matische Funktionen in Cobol ganz feh¬ 
len, ist die Sprache für wissenschaftli¬ 
che Anwendungen völlig ungeeignet. 

Derartige Beispiele verdeutlichen, 
daß das Entwicklungsziel von Cobol 
nicht sinnvoll erreicht wurde. Dennoch 
ist Cobol auch heute noch die weltweit 
am stärksten verbreitete Programmier¬ 
sprache. Ganze Rechenzentren arbei¬ 


ten mit ihr. Die hohen Investitionen und 
die Gewöhnung des Personals an diese 
Sprache wird auch in Zukunft für ihren 
Erhalt sorgen. Zudem erreicht auch 
noch keine neuere Programmierspra¬ 
che die Cobol-Domäne Datenorganisa¬ 
tion. 

Wer einen Mikrocomputer mit den 
Betriebssystemen CP/M oder MS-DOS 
(PC-DOS) besitzt, kann in Cobol ein¬ 
steigen. 


PL/l - 

von allem etwas 


Fortran und Cobol sind charakteri¬ 
stisch für die strikte Trennung in kom¬ 
merzielle und technisch-wissenschaft¬ 
liche Anwendungen zu Beginn der 
sechziger Jahre. Daneben wurden 
Computer nur noch in Spezialgebieten 
eingesetzt. Im Laufe der Zeit traten aber 
die Merkmale der naturwissenschaft¬ 
lich-technischen Bereiche in den 
betriebswirtschaftlichen Anwendun¬ 
gen immer mehr hervor und umgekehrt. 
So waren die kommerziellen Anwender 
mehr und mehr auf Methoden aus der 
Statistik, Operations Research und 
Ökonomie angewiesen. Mathematiker 
und Ingenieure stellten zunehmend 
höhere Ansprüche an Datenverwaltung 
und an die Ein-/Ausgabeunterstützung. 

Als logische Konsequenz kamen die 
Anbieter den neuen Bedürfnissen mit 
einer universellen Hard- und Software¬ 
konfiguration nach. Hardwareseitig ent¬ 
wickelte IBM die Rechnerfamilie /360 
mit dem Betriebssystem OS/360. 
Diese Anlagen zählten sich bereits zur 
dritten Computergeneration (das heißt, 
die Schaltkreise waren in Hybridtechnik 
ausgelegt, einer unmittelbaren Vorstufe 
der integrierten Schaltkreise). 

Bei den Überlegungen zu einer 
neuen Sprache war man zunächst von 
Fortran ausgegangen. Die Organisation 
SHARE (Society for Help to Avert 
Redundant Effort), eine Vereinigung 
wissenschaftlicher IBM-Anwender, 
einigte sich mit der Firma IBM auf die 
Gründung eines Sprachkomitees. 
Zunächst war die Rede von Fortran VI. 
Man gelangte aber schon nach kurzer 
Zeit zu der Erkenntnis, daß die 
gewünschten Verbesserungen eine 
Kompatibilität mit Fortran unmöglich 
machten. Die Anlehnung an Fortran 
hätte außerdem die große Gruppe der 
kommerziellen Verwender abge¬ 
schreckt. So entschied man sich für die 
Entwicklung einer gänzlich neuen Spra¬ 
che. Deren wichtigsten Entwurfsprinzi¬ 
pien waren: allgemeine Einsetzbarkeit 
und weitgehende Ausdrucksfreiheit. 
Der Sprachaufbau sollte modular sein 
und Testhilfen sowie Möglichkeiten zur 















Fehlerbehandlung bieten. Ein großen¬ 
teils gegenläufiges Ziel bestand in den 
Forderungen, den vollen Zugriff auf 
Hardware- und Betriebssystemleistun¬ 
gen bei gleichzeitiger Maschinenunab¬ 
hängigkeit zu gewähren. 

Nach vielen drastischen Überarbei¬ 
tungen hatte sich der Sprachumfang bis 
1965 stabilisiert. Nachdem die Abkür¬ 
zung für NPL (New Programming Lan- 
guage) bereits vergeben war, einigte 
man sich schließlich auf PL/I (Program¬ 
ming Language one). Im August 1966 
wurde dann der erste Compiler für eine 
IBM /360 freigegeben. Schließlich ver¬ 
abschiedeten das ANSI und die ECMA, 
ein europäisches Standardisierungsko¬ 
mitee, einen vorläufig endgültigen Stan¬ 
dard. Die Verbreitung von PL/1 nahm 
zunächst rasch zu, wurde aber später 
den gesetzten Erwartungen nicht 
gerecht. 

Kommen wir nun zu der Sprache, die 
jeder, und wenn nur vom Hörensagen, 
kennt. Sie kann sich rein zahlenmäßig 
im Mikrocomputerbereich als die am 

In den Sprachumfang von PL/1 wur¬ 
den viele Konzepte aus Fortran, Cobol, 
Algol und Jovial übernommen (letztere 
werden hier wegen ihrer geringen Ver¬ 
breitung nicht behandelt). Leider 
gelang es nicht, sich bei der Auswahl 
nur auf die guten Eigenschaften der 
Vorgänger zu beschränken. Zudem ist 
der Sprachumfang riesig. Eine fast 
unüberschaubare Anzahl von Schlüs¬ 
selwörtern zwingt zu Maßnahmen, 
durch die der Programmierer auch mit 
Teilmengen der Sprache sinnvoll arbei¬ 
ten kann. Daher ergeben sich für die 
PL/1 -Syntax sehr freizügige Vorschrif¬ 
ten. Einerseits existiert keine Zellen¬ 
struktur, Zwischenräume, Einrücken 
und Kommentare dürfen fast beliebig 
verstreut werden. Da passiert es dann 
auch nicht selten, daß beim Program¬ 
mieren das Format aus allen Fugen 
gerät. Außerdem sind die Schlüssel¬ 
wörter nicht reserviert, wohl wegen 
ihrer großen Anzahl. Gebilde wie 
IF ELSE=THEN THEN IF=ELSE; ELSE 
IF=THEN 

tragen wohl zur Verwirrung jedes hoff¬ 
nungsvollen Programmierers bei. Ein 
wesentlich angenehmerer Fortschritt 
ist andererseits das ausgeprägte 
Blockkonzept der Sprache. PL/1 orien¬ 
tiert sich wesentlich an Prozeduren. All¬ 
gemein kann gesagt werden, daß die 
Einarbeitung in PL/1 viel Zeit braucht. 
Wer damit trotz aller Warnungen begin¬ 
nen will, kann dies unter CP/M oder auf 
PC-Kompatiblen tun. 
weitesten verbreitete Sprache der Welt 
rühmen. Sie ist schon fast als Teil der 
Allgemeinbildung zu betrachten. Ganz 
anders als bei den »großen professio¬ 
nellen« wurde die Entwicklung von 
Basic (Beginners All-purpose Symbolic 


Instruction Code) nicht durch eine 
Industrie- oder Militärlobby getragen. 
Die Ausrichtung der Sprache kommt 
denn auch in ihrem Namen zum Aus¬ 
druck: Sie wendet sich an den Anfänger 
und soll für jeden Zweck geeignet sein. 


Basic — 

Basis für Einsteiger 


Ihre geschichtliche Entwicklung 
erklärt viele Aspekte des Sprachkon- 
zepts. Basic wurde von Thomas Kurtz 
und John Kemeny von 1956 bis 1971 in 
den USA am Dartmouth College ent¬ 
wickelt. Ziel war es, Studenten, die sich 
nicht ausschließlich mit Ingenieurwis¬ 
senschaften beschäftigten, das Pro¬ 
grammieren zu erleichtern. So schlu¬ 
gen sich denn auch die Erfordernisse 
der allgemeinen Ausbildung einer Uni¬ 
versität in der Sprache nieder: Bei der 
angesprochenen Zielgruppe erschien 
ein eigener Programmierkurs nicht 
erforderlich. Vielmehr sollte das Pro¬ 
grammieren im Rahmen der Mathema¬ 
tikvorlesungen gelehrt werden. Hieraus 
erklärt sich auch die Ausrichtung von 
Basic auf mathematische Probleme. Die 
neue Sprache sollte leicht erlernbar 
und leicht zu benutzen sein. Dies war 
nach Meinung von Kurtz und Kemeny 
bei Fortran und Algol nicht der Fall. So 
erklärt sich auch, daß bei Basic nicht, 
wie bei PL/1, auf Bewährtes zurückge¬ 
griffen wurde. 

Im Gegensatz zu den bisher behan¬ 
delten Sprachen wurde Basic als voll¬ 
ständiges Programmiersystem konzi¬ 
piert. Der Benutzer kann im Dialog mit 
Basic arbeiten, ohne die Basic- 
Umgebung zu verlassen. Hierzu exi¬ 
stiert der »Direkt-Modus«, der das Edi¬ 
tieren, Ausführen und Speichern von 
Programmen unterstützt. Basic ist 


zudem eine typische Interpreter- 
Sprache, für die allerdings auch ver¬ 
schiedene Compiler erhältlich sind. 

Mit der Entwicklung des ersten Com¬ 
pilers begannen Kurtz, Kemny und eine 
Gruppe Studenten 1963. Im Mai 1964 
wurde dann das erste Basic-Programm 
ausgeführt; die erste Version kannte 
nur 14 Instruktionen. Diese Minimalaus¬ 
stattung wurde am Dartmouth College 
bis 1971 in insgesamt sechs Versionen 
schrittweise vervollständigt. Seither 
nahmen die Autoren keine Veränderun¬ 
gen mehr vor. Das bedeutet natürlich 
nicht, daß Basic jemals eine wirkliche 
Standardisierung erfahren hätte. Im 
Gegenteil: Durch das Fehlen einer 
Interessenvertretung professioneller 
Anwender und durch die enorme Ver¬ 
breitung der Sprache wucherten die 
Basic-Versionen fast uferlos. Für 
nahezu jeden Mini- und Mikrocomputer 
und selbst auf Taschenrechnern ist 
Basic erhältlich. Da von Herstellerseite 
nach dem Motto verfahren wurde 
»jedem Topf ein anderer Deckel« ist 
Kompatibilität ein Fremdwort. Auch die 
Bemühungen der ECMA und ANSI in 
den letzten Jahren waren kaum von 
Erfolg gekrönt. Lediglich ein »Minimal 
Basic« wurde kompromißbereit zum 
Standard deklariert. Diese Teilmenge ist 
der ersten Sprachbeschreibung von 
1964 sehr ähnlich. Lediglich im Heim¬ 
computerbereich gelang es mit den 
MSX-Computern erstmals, einen wei¬ 
testgehenden Basic-Standard für 
Geräte verschiedener Hersteller zu 
schaffen. Haar in der Suppe war aber, 
daß die MSX-Computer wenig Verbrei¬ 
tung fanden. 

Ein Basic-Programm besteht aus 
nummerierten Zeilen in aufsteigender 
Folge. Dabei sind die Zeilennummern 
aus einem festgelegten Intervall zu 
wählen. Jeder Zeilennummer folgen 
eine oder mehrere Instruktionen. Die 

















Zeilennummern legen die logische Rei¬ 
henfolge der auszuführenden Anwei¬ 
sungen fest. Darüber hinaus dienen sie 
als Orientierung für die Sprungbefehle. 
Beim Editieren des Programmtextes 
lokalisieren sie die Zeilen. Basic ist 
noch stärker zeilenorientiert als Fortran. 
Das geht so weit, daß eine Basic- 
Anwendung durch die Zeilenlänge 
begrenzt wird. In einigen Basic- 
Versionen sind Förtsetzungszeilen mit 
dem Zeichen »&« möglich. 

Als Datentypen sind in Basic nur 
numerische Daten und Zeichenketten 
vorgesehen. Eine Unterscheidung in 
ganzzahlig und Fließkomma, wie es von 
anderen Sprachen her bekannt war, 
wurde der Einfachheit wegen bewußt 
vermieden, ist aber dennoch auf vielen 
Computern implementiert. Für Daten¬ 
strukturen stehen nur ein- und mehrdi¬ 
mensionale Felder (Arrays) zur Verfü¬ 
gung. Deren Elemente können je nach 
Version entweder nur einzeln manipu¬ 
liert werden, oder es stehen spezielle 
Matrizenoperationen bereit. 

Die Sprunganweisungen sind, wie 
bereits erwähnt, vielen ein Greuel. Zwar 
bieten moderne Basic-Versionen viele 
Befehle, die das strukturierte Program¬ 
mieren unterstützen, sie erfordern aber 
genaue Vorausplanung eines Pro¬ 
gramms. Im Regelfall endet bei länge¬ 
ren Programmen ein »Drauflosprogram¬ 
mieren« im Chaos aus GOTO, GOSUB 
und FOR...NEXT. 

Des weiteren beinhaltet Basic, je 
nach Ausstattung und Computer, 
Befehle für die Ein-/Ausgabe, mathema¬ 
tische Funktionen, Grafik, Tonerzeu¬ 
gung und den Zugriff auf das Betriebs¬ 
system. Hierauf im einzelnen einzuge¬ 
hen würde zu weit führen. Es sei daher 
auf entsprechende Fachliteratur ver¬ 
wiesen. 

Pascal - strukturiert 
und einfach 

Ein moderner Klassiker unter den 
Programmiersprachen ist Pascal. Der 
Name ist ausnahmsweise keine Abkür¬ 
zung. Er wurde zu Ehren des französi¬ 
schen Mathematikers Blaise Pascal 
gewählt, der 1642 im Alter von 19 eine 
der ersten funktionsfähigen Rechen¬ 
maschinen konstruierte. 

Die Wurzeln dieser Programmierspra¬ 
che reichen in das Ende der sechziger 
Jahre zurück. Zu jener Zeit stellten 
Nikolaus Wirth und C.A.R. Hoare Über¬ 
legungen an, auf der Basis von Algol 60 
eine Nachfolgesprache zu entwickeln. 
Algol 60 bot schon damals ein zufrie¬ 
denstellendes Sprachkonzept. Das gilt 
besonders für die Strukturierung des 
Programmablaufs und des Programm¬ 


textes. Wegen dieser Vorteile wurde 
Algol zur Grundlage einer ganzen 
Klasse von Programmiersprachen, die 
bei Pascal beginnt und vorläufig von 
Ada gekrönt wird. Eine der Schwächen 
ist dagegen die unzureichende Daten¬ 
strukturierung. Ebenso wie Basic und 
Fortran kennt Algol 60 nur das Array. 
Die später folgende Version Algol 68 
war ähnlich wie PL/1 zu umfangreich 
und unhandlich. Mit der Entwicklung 
von Pascal verfolgte man das entge¬ 
gengesetzte Ziel. Der Schweizer Pro¬ 
fessor Nikolaus Wirth formulierte bei 
der Entwicklung der Sprache an der 
ETH Zürich die folgenden Schwer¬ 
punkte: Pascal sollte nur grundlegende 
Sprachkonzepte enthalten. Diese soll¬ 
ten natürlich definiert sein und das 
Erlernen des strukturierten Program- 
mierens als eine systematische Diszi¬ 
plin unterstützen. Des weiteren sollte 
sie sich effizient auf allen Computern 
implementieren lassen. 

Die erste vorläufige Version entstand 
1968. Die vollständige Beschreibung 
eines Compilers und der Sprache 
selbst war 1971 fertig. Das 1974 
erschienene Benutzerhandbuch »Pas¬ 
cal User Manual and Report« enthält 
eine Sprachdefinition, die heute als 
Wirth-Standard bezeichnet wird. Die 
verbreiteten Versionen Turbo- und 
UCSD-Pascal enthalten demgegen¬ 
über noch einige Erweiterungen, die 
vor allem Grafik und Zeichen-Strings 
betreffen. 

Durch die leichte Erweiterbarkeit von 
Pascal entstanden bald viele Dialekte. 
Deshalb und wegen der weltweiten 
Anerkennung der Sprache nahmen 
sich verschiedene Normeninstitute die¬ 
sem Problem an. Die ISO setzte 
schließlich 1980 einen Standard fest, 
der in der DIN-Norm 66256 nachzule¬ 
sen ist. Strukturierung bedeutet nicht 
nur, daß das Programm übersichtlich 
ist, sondern daß sich der Vorgang des 
Programmierens in verschiedene Aktio¬ 
nen aufteilt. Bevor man sich an den 
Computer setzt, sollte man das Pro¬ 
blem genau analysieren und in Aufga¬ 
benpakete zerlegen. Dann ist für jedes 
Paket ein Algorithmus zu bestimmen 
und in Pascal zu formulieren. Erst dann 
beginnt die Tipparbeit. Pascal- 
Programme entstehen also auf dem 
Papier und weniger am Bildschirm. 
Diese Vorgehensweise erreicht eine 
niedrige Fehlerquote und damit sinkt 
auch die Zahl der Übersetzerdurch¬ 
läufe, was bei einer typischen Compiler¬ 
sprache wie Pascal sehr angenehm ist. 

Ein Pascal-Programm ist klar geglie¬ 
dert in einen Vereinbarungs- und einen 
Anweisungsteil. Vereinbart werden 
zuerst alle Variablen, Konstanten und 
deren Datentypen. Im Anweisungsteil 
werden die Aufgabenpakete in Proce- 


dures formuliert. Jede Procedure ent¬ 
hält einen eigenen Namen. Das eigentli¬ 
che Hauptprogramm besteht dann nur 
noch aus dem Aufrufen der Procedures 
und steht im Programmtext ganz am 
Ende. 

Daß der GOTO-Befehl in Pascal ent¬ 
halten ist, verwundert eigentlich. Ange¬ 
sichts der Strukturbefehle IF....THEN- 
CASE kann man gut auf ihn verzichten. 
Der Vorrat an Datentypen eröffnet 
gegenüber Basic ganz neue Möglich¬ 
keiten. Man unterscheidet hier zwi¬ 
schen einfachen Typen, strukturierten 
Typen und Zeigertypen. Integer, Char, 
Boolean und Real zählen zu den einfa¬ 
chen Typen. Boolean bezeichnet eine 
Variable, der nur die Werte False oder 
True zugeordnet werden können. Array, 
Record, Set und File stehen als struktu¬ 
rierte Typen zur Verfügung. Set 
bezeichnet eine Menge. Auf diesen Typ 
sind die üblichen Mengenoperationen 
Vereinigung, Durchschnitt, Differenz, 
Untermenge und Elementüberprüfun¬ 
gen anwendbar. Record ermöglicht 
Verbundvariablen. Es lassen sich so 
unterschiedliche Variablentypen zu 
einer Variable zusammenfassen. 
Record war ursprünglich für kommer¬ 
zielle Anwendungen gedacht (Tabellen¬ 
darstellung). Demgegenüber werden 
mit dem Typ File nur Variablen eines ein¬ 
zigen Typs verkettet. Der Typ Zeiger 
(pointer) schließlich ermöglicht verket¬ 
tete Listen und deren bequeme Mani¬ 
pulation, sowie Baumstrukturen. Wem 
das noch nicht reicht, der kann sich in 
Pascal weitere einfache Datentypen 
selbst definieren. 

Pascal ist vielseitig und erzieht zum 
strukturierten Denken. Seine Verarbei¬ 
tung, vor allem im akademischen Be¬ 
reich, ist folgerichtig sehr hoch. So lie¬ 
gen denn auch für fast alle rechnereige¬ 
nen Betriebssysteme wie auch für 
CP/M und MS-DOS Pascal-Versionen 
vor. 

Forth — die etwas 
andere Sprache 

Forth entstand Anfang der siebziger 
Jahre. Charles H. Moore entwickelte 
die Sprache ursprünglich zur Steue¬ 
rung von Radioteleskopen. Er arbeitete 
dazu mit einem IBM-1130, einem Com¬ 
puter der dritten Generation. Das End¬ 
produkt war aber so mächtig, daß es 
Moores Computer als einen der vierten 
Generation erscheinen ließ. Er wollte 
der neuen Sprache daher den Namen 
Fourth geben. Namen mit mehr als fünf 
Buchstaben waren auf dem IBM jedoch 
nicht erlaubt. So wurde das »u« ein 
Opfer dieser technischen Unzuläng¬ 
lichkeit. 
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Forth ist interaktiv wie Basic. Das 
heißt, es existiert sowohl ein Interpreter 
als auch ein Compiler. Programme kön¬ 
nen somit erst im Direktmodus »häpp¬ 
chenweise« getestet und anschließend 
compiliert werden. Des weiteren ver¬ 
bindet Förth Merkmale der Assembler¬ 
sprachen mit denen der Hochspra¬ 
chen. 

Die Strukturierung in Förth entsteht 
durch die Definition immer neuer Worte. 
Der ohnehin schon große Sprachum- 
fang nimmt beim Programmieren stän¬ 
dig zu. Beliebige Befehle können zu 
einem neuen Befehl zusammengefaßt 
werden, der dann sofort wieder in wei¬ 
tere Befehle mit eingebaut werden 
kann. Schließlich steht für das gesamte 
Programm ein einziger Befehl am Ende 
dieser Kette. 

Selbstverständlich stellt Förth auch 
die Kontrollstrukturen zur Verfügung, 
die bereits für Pascal angesprochen 
wurden, wie IF.....ELSE....ENDIF, 
BEGIN...UNTIL, BEGIN...WHILE etc. 
Das berüchtigte GOTO fehlt hier ganz, 
ergäbe auch bei diesem Sprachkon- 
zept keinen Sinn. 

Grundlegendes Prinzip von Forth ist 
das Operieren mit dem Stapelspeicher 
(Stack). Dieser funktioniert nach dem 
LIFO-Prinzip (Last In, First Out). Alle 
Werte, die auf dem Stapel abgelegt wur¬ 
den, lassen sich nur in umgekehrter 
Reihenfolge wieder herunternehmen. 
Für einen problemlosen Ablauf dieses 
Systems sorgen eine ganze Reihe von 
Stack-Befehlen, mit denen sich Werte 
verschieben und vertauschen lassen. 
Sämtliche mathematischen Operatio¬ 
nen laufen in Förth über den Stack. Man 
bedient sich hierbei der Umgekehrten 
Polnischen Notation (UPN), die recht 
gewöhnungsbedürftig und Benutzern 
von HP-Taschenrechnern bekannt ist. 

Förth ist ein sehr offenes System und 
durch seine Assemblernähe universell 
einsetzbar. Fehlende Funktionen kön¬ 
nen jederzeit selbst programmiert wer¬ 
den. Zudem ist Förth sehr schnell. Das 
Erlernen der Sprache und die Über¬ 
sichtlichkeit der Programme können als 
noch ausreichend eingestuft werden. 
Auf jeden Fall fasziniert Förth jeden, 
der sich länger damit beschäftigt. Für 
alle verbreiteten Mikrocomputer exi¬ 
stieren mittlerweile eine oder mehrere 
Versionen. 


Loge — kinderleicht 


Seymour Papert, der als geistiger 
Vater der Sprache Logo gilt, arbeitete 
12 Jahre an der Verwirklichung dieser 
»Erziehungsphilosophie«. Er leitete ein 
eigens gegründetes Entwicklungsteam 
aus Programmierern und Lehrkräften 


am MIT (Massachusetts Institute of 
Technology) in den USA. Man arbeitete 
damals ausschließlich auf den größten 
vorhandenen Datenverarbeitungsanla¬ 
gen. Dadurch fand ein wesentliches 
Konzept der Kl-Sprache Lisp in Logo 
Anwendung: die Listenprogrammie¬ 
rung. Listen sind einfach zu definieren 
und können per Befehl manipuliert, 
kombiniert und verglichen werden. Eine 
leicht programmierbare Dateiverwal¬ 
tung ist nur ein Anwendungsbeispiel 
dieser Technik. 

Bekannt wurde Logo vor allem durch 
die Schildkröte, ein kleines Zeichen¬ 
symbol der »Turtle-Graphics«. Mit ihr las¬ 
sen sich auf einfache Weise die tollsten 
Grafiken zaubern. Die Schildkröte krab¬ 
belt über den Bildschirm und hinterläßt 
dabei eine sichtbare Spur. 


Eine Schildkröte 
machte 
Logo bekannt 


Gesteuert wird mit einfachen Befeh¬ 
len wie FORWARD, BACK, LEFTTURN, 
RIGHTTURN. Zusätzlich muß noch die 
Länge der zurückgelegten Strecke und 
des Drehwinkels angegeben werden. 
Ebenso ist eine Standortabfrage der 
Turtle möglich. Logo-Programme 
ähneln in der Struktur dem Baukasten¬ 
prinzip der Förth-Programme. Mit Hilfe 
des Interpreters lassen sich einzelne 
Bausteine erproben und später zum 
eigentlichen Programm zusammenset¬ 
zen. Der Komfort ist dabei in Logo 
ungleich höher als in allen bisher 
genannten Sprachen. So kann der 
Anwender vorerst Begriffe wie Archi¬ 
vierung, Dateien und andere spezielle 
Funktionen der Datenverarbeitung links 
liegen lassen. Diese Vorteile gehen 
aber leider zu Lasten des Speicherplat¬ 
zes. 

Eng mit dem Prozedurkonzept ver¬ 
bunden ist die Rekursivität von Logo. 
Prozeduren sind in der Lage, sich selbst 
aufzurufen. Auf diese Weise lassen sich 
schnell reizvolle grafische Gebilde 
erzeugen und gewisse mathematische 
Zusammenhänge einfach ausdrücken. 
Rekursive Strukturen sind in Basic gar 
nicht und in vielen anderen Sprachen 
nur mit hohem Aufwand zu verwirkli¬ 
chen. 

In die Logo-Philosophie wurden 
Erziehungstheorien des Schweizer 
Philosophen Jean Piaget eingebracht. 
Dieser hatte zuvor das Lernverhalten 
von Kindern analysiert. Tatsächlich 
wirkt Logo besser auf die Denkweise 
eines Schülers als Basic oder Pascal. 
Bemängelt werden muß bei Logo haupt¬ 
sächlich die geringe Verarbeitungsge¬ 
schwindigkeit der Programme. Sie fällt 


aber bei einem Lernsystem nicht so 
stark ins Gewicht. 

Wegen des hohen Speicherbedarfs 
sind Logo-Interpreter auf Mikrocompu¬ 
tern nur als Ausschnitt des Gesamtsy¬ 
stems erhältlich. Dies wird sich mit 
wachsendem Speicherstandard jedoch 
bald ändern. 


Comal — 

gelungene Essenz 


Im Jahre 1973 ging Comal aus den 
Sprachen Basic und Pascal als ein 
neuer Ableger hervor. Später kamen in 
Comal noch Elemente von Logo hinzu, 
so zum Beispiel die Schildkrötengrafik. 
Zudem sind in Comal der Compiler und 
der Interpreter nicht getrennt vorhan¬ 
den, sondern es wurden deren beste 
Elemente in einer Zwischenstufe 
zusammengefaßt. Ein Comal-Pro- 
gramm besteht aus drei Schritten. Im 
ersten wird schon bei der Programm¬ 
eingabe die Syntax überprüft. Dieser 
Syntaxchecker ist selbst für den ohne¬ 
hin schon eingabefreundlichen Inter¬ 
preter ungewöhnlich komfortabel. Die 
Comal-Schlüsselworte werden sofort in 
sogenannte »Token« übersetzt, das sind 
Abkürzungen, die nur ein Byte bean¬ 
spruchen. Dieses Prinzip verwenden 
übrigens alle Interpreter. Der zweite 
Schritt beginnt nach dem Programm¬ 
start. In einer Art Compilerdurchlauf 
wird der Programmtext nach Variablen, 
Prozeduren, Funktionen und Sprüngen 
durchsucht. Die Ergebnisse dieser 
Analyse werden dann in einer geson¬ 
derten Liste zusammengefaßt. Man 
kann diesen Vorgang auch als eine Art 
automatische Deklaration ansehen. Im 
dritten Schritt, dem Programmlauf 
selbst, wird auf diese Liste ständig 
direkt zugegriffen. So ergeben sich 
gegenüber Basic, wo der Interpreter oft 
den ganzen Programmtext absucht, 
enorme Geschwindigkeitsvorteile. 

Die Comal-Syntax lehnt sich stark an 
die von Basic an. Im Direktmodus wur¬ 
den die meisten Befehle Wort für Wort 
übernommen. Das gleiche gilt für einige 
Befehle des Programm-Modus. Einige 
Comal-Versionen akzeptieren neben 
den eigenen Schlüsselworten sogar 
noch gleichbedeutende Basic-Befehle. 
Wer aus Basic zu Comal aufsteigt, ist so 
zwar vor Irrtümern einigermaßen sicher, 
jedoch wird dem Prinzip der Eindeutig¬ 
keit nicht gerade Rechnung getragen. 

Von Pascal wurde die Strukturiertheit 
übernommen, dessen strenge Syntax¬ 
vorschriften aber erfreulicherweise ver¬ 
mieden. Die typischen Kontrollstruktu¬ 
ren, die schon bei Pascal und Basic 
beschrieben wurden, sind ausnahms¬ 
los vorhanden. Die Lesbarkeit des Pro- 
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grammtextes wird zudem dadurch 
unterstützt, daß Comal beim Listen eine 
optische Gliederung vornimmt. 

Comal wird für fast alle gängigen 
Mikrocomputer angeboten. Erfreuli¬ 
cherweise stehen auch, ähnlich wie bei 
Förth, zahlreiche Public-Domain- 
Versionen zur Verfügung. Diese unter¬ 
scheiden sich von kommerziellen 
Sprachangeboten lediglich im Umfang. 
Es wird erwartet, daß Comal in Zukunft 
eine starke Verbreitung erfährt. Jüng¬ 
ster Anhaltspunkt für diese These ist 
der Beschluß der Kultusministerien, 
Pascal im Informatikunterricht allmäh¬ 
lich durch Comal zu ersetzen. 


C - die Zukunft? 


»C« - für diesen einen Buchstaben 
lassen viele Programmierer Pascal, 
Förth oder Fortran links liegen. Viele 
betrachten C als die Programmierspra¬ 
che schlechthin. Tatsächlich bietet C 
viele bestechende Vorteile, die sich von 
denen der anderen Hochsprachen 
unterscheiden. In C wurden bekannte 
Betriebssysteme wie Unix und GEM 
geschrieben. 

Die Entwicklung von C reicht bis an 
den Anfang der siebziger Jahre zurück. 
Die Namensgebung war ebenso kurios 
wie einfallslos. 1970 begann die Firma 
Digital Equipments mit der Entwicklung 
von Spezialsprachen, die die Program¬ 
mierung von Minicomputern unterstüt¬ 
zen sollten. Diese wurden einfach nach 
dem Alphabet benannt. B war also eine 
Weiterentwicklung von A und diente 
1971 dazu, Unix auf verschiedene 
Rechner zu übertragen. Bald darauf 
erkannten Dennis Ritchie und Ken 
Thompson, die damals bei Bell Labora¬ 
tories beschäftigt waren, die Leistungs¬ 
fähigkeit von B. Sie verbesserten diese 
Sprache bis 1973 entscheidend. Wie 
das Endprodukt heißt, wissen wir 
bereits. Unix wurde wenig später eben¬ 
falls auf C umgeschrieben. 

Wenn ganze Betriebssysteme in C 
gehalten sind, läßt sich die ungeheuere 
Effizienz dieser Sprache schon erah¬ 
nen. Das C-Compilat geht mit dem Spei¬ 
cher äußerst sparsam um, und ist 
zudem um den Faktor 50 schneller als 
vergleichbare Basic-Programme. 

Der eigentliche Befehlsvorrat von C 
ist denkbar klein. Er umfaßt nur 13 
Instruktionen. Bei der Erzeugung eines 
C-Programms wird der Quelltext zuerst 
mit dem mitgelieferten Editor oder einer 
Textverarbeitung geschrieben. Dieser 
dient dann als Eingabedatei für den 
Compiler. Bis hierher besteht also kein 
Unterschied zur Vorgehensweise mit 
den meisten anderen Compilerspra¬ 
chen. Der Compiler überprüft den Text 


und übersetzt diesen mit den ihm 
bekannten Befehlen in eine Zwischen¬ 
datei und legt diese auf einen externen 
Speicher (zum Beispiel Diskette) ab. 
Anschließend beginnt das sogenannte 
»Linking«. Der Linker ordnet aus einer 
externen Bibliothek die noch fehlenden 
Befehle entsprechendem Assembler¬ 
code zu. So entsteht schließlich das 
lauffähige Programm, das fast so kom¬ 
pakt ist, als wäre es direkt in Maschi¬ 
nensprache geschrieben. Das Compi- 
lieren benötigt jedoch wegen des Zwi¬ 
schencodes je nach Geschwindigkeit 
des Speichermediums mehr Zeit, als 
die unmittelbare Übersetzung in 
Maschinensprache. 

Die Vorteile des Compiler-Linker- 
Prinzips wiegen diesen Nachteil bei 
weitem auf: C ist praktisch uneinge¬ 
schränkt portabel und die Linker- 
Funktion kann man selbst erweitern. C- 
Programme bieten neben der selbst¬ 
verständlichen Strukturierung einige 
ungewöhnliche aber vorteilhafte Eigen¬ 
schaften. So sind in Anlehnung an 
Assembler Befehle zum Inkrementieren 
und Dekrementieren vorhanden, Varia¬ 
ble können als Registervariable dekla¬ 
riert werden. Daß die Benutzung derar¬ 
tiger Sprachmittel einem Compiler das 
Leben leicht macht, ist klar. Einschrän¬ 
kungen entstehen jedoch bei Prozes¬ 
soren, die nur wenige Register aufwei¬ 
sen, wie beispielsweise die drei 8-Bit- 
Register des 6502, der nur A, X und Y 
zu bieten hat. 

Ein weiteres nennenswertes Stilmit¬ 
tel unter C sind Makros. Diese sind mit 
Unterprogrammen vergleichbar, die 
nicht angesprungen werden müssen, 
sondern jeweils erneut vom Compiler in 
den Objektcode eingebunden werden. 
Diese Technik bringt einen großen Zeit¬ 
vorteil, da Parameterübergaben und 
Sprünge entfallen. 

Im 8-Bit-Bereich ist C nur auf dem 
Z80 unter CP/M verbreitet. Eine Ver¬ 
sion für den C 64 stellt hier eine erfreuli¬ 
che Ausnahme dar. Für 16- und 
32-Bitter existieren aber umfangrei¬ 
chere Versionen. 


Ada — 

gekrönter Adel 


Ada ist heute als Krönung bei der Ent¬ 
wicklung modularer Programmierspra¬ 
chen anzusehen. Die Sprache wurde 
erst in jüngster Zeit im Auftrag des welt¬ 
weit größten Softwaresponsors ent¬ 
wickelt, dem Pentagon. Der finanzielle 
und organisatorische Aufwand dafür 
war entsprechend riesig. Benannt ist 
die Sprache nach der jungen Gräfin Ada 
Byron, die um 1830 für Babbages 
(siehe oben) Rechenmaschinen ein 


nahezu komplettes Programm zur 
Berechnung der Bernoullischen Zahlen 
schrieb. 

Der Aufwand, der um Ada getrieben 
wurde, erklärt sich mit einer Kalkulation 
des US-Verteidigungsministeriums. 
Danach können zwischen 1983 und 
1999 etwa 24 Milliarden Dollar (!) ein¬ 
gespart werden, wenn eine einzige uni¬ 
verselle Programmiersprache die bis¬ 
herigen 450 (!!) Programmiersprachen 
ersetzen könnte. Ada ist ähnlich PL/1 
sehr umfangreich. Es wäre daher 
zwecklos, auf einzelne Sprachele- 
mente einzugehen. Deshalb hier nur die 
grundsätzlichen Sprachkonzepte von 
Ada: 

- Das Modulkonzept von Ada ist 
äußerst umfangreich. Es stehen sowohl 
datenorientierte als auch funktions¬ 
orientierte Module zur Verfügung. 
Innerhalb der datenorientierten Pakete 
lassen sich fast beliebige Datentypen 
und Datenstrukturen realisieren. 

- Ähnlich wie in Pascal können Daten¬ 
strukturen geschachtelt werden. 
Umfangreichere Prozedur- und Funk¬ 
tionskörper werden ausgelagert, zum 
Beispiel um die Lesbarkeit der Pro¬ 
gramme zu erhöhen. 

- Sämtliche Kontrollstrukturen, von 
UNTIL bis hin zu CYCLE-Schleifen ste¬ 
hen zur Verfügung. Ferner sind alle line¬ 
aren und strukturierten Datentypen 
implementiert. 

- Ein automatischer Textformatierer 
(Pretty-Printer) wertet Schachtelungs¬ 
strukturen aus und sorgt für ein über¬ 
sichtliches Layout des Programmtex¬ 
tes. 

- Neben Parallelverarbeitung (Multi¬ 
tasking) gehören Konzepte wie die 
Parallel- und Ausnahmebehandlung zu 
den bemerkenswerten Fähigkeiten, aul 
deren Erklärung hier wegen der kom¬ 
plexen Zusammenhänge verzichtet 
wird. 

Im großen und ganzen wurden die 
gesetzten Ziele bei der Entwicklung 
von Ada nach dem heutigen Erkenntnis¬ 
stand optimal erreicht. Die zu Anfang 
unter den Qualitätsaspekten genann¬ 
ten Stichworte wie Vollständigkeit, 
Zuverlässigkeit, Korrektheit, Übertrag¬ 
barkeit, Wartung und Fehlerbehandlung 
wurden weitestgehend realisiert. Die 
Einfachheit der Sprache ist als ausrei¬ 
chend zu betrachten, wenn auch die 
vollständige Einarbeitung in dieses 
System Jahre beansprucht. Ada ist für 
Mikrocomputer zur Zeit nur unter MS- 
DOS verfügbar und auch hier nur in 
einer abgespeckten Version, 

Wir sind nun mit dem Aufstieg im 
»modernen Turm zu Babel« fast an der 
Spitze angelangt. Nach unten blickend 
können wir die gebräuchlichsten Spra¬ 
chen beurteilen. 

(Matthias Rosin/ev) 
















Reifeprüfung in Pascal 


Pascal gilt als hervorragend 
geeignete Computersprache für 
Lehre und Unterricht. Zwei 
Pascal-Systeme treten an, dem 
Atari ST auch den Schulbereich 
zu erschließen. Ist der ST reif 
fürs Abitur? 

C omputer sind von Natur aus voll¬ 
kommen respektlos. Unbeküm¬ 
mert dringen sie in alle nur denk¬ 
baren Bereiche ein und zeigen selbst 
davor keine Scheu, in die geheiligten 
Gefilde des deutschen Schulwesens 
einzubrechen. Jedem Hüter humanisti¬ 
schen Bildungsgutes muß es wahrhaf¬ 
tig monochrom vor Augen werden, 
wenn sich seine ihm anvertrauten 
Zöglinge plötzlich mit einer seltsamen 
Sprache namens Pascal beschäftigen, 
statt wie gewohnt Latein oder Grie¬ 
chisch zu büffeln. Und das geschieht 
dann auch noch an diesen äußerst 
suspekten Computern. 


Sprachbegabt 


Doch letztlich muß auch eine so alt¬ 
ehrwürdige Institution wie die Schule 
der modernen Zeit ihren Tribut zollen. 
Der Informatikunterricht und die Com¬ 
putersprache Pascal haben inzwischen 
einen festen Platz im Lehrplan erhalten. 
Die strenge Sprachstruktur und die Pro¬ 
blemorientierung machen Pascal ohne 
jeden Zweifel zu einer idealen Sprache 
für diesen Anwendungsbereich. Dabei 
ist Pascal weit entfernt davon, nur eine 
akademische Lehrsprache zu sein. In 
Pascal kann man nämlich »richtig« pro¬ 
grammieren und Programme erzeugen, 
die man verkaufen kann. Wer in der 
Schule Pascal lernt, hat also nicht nur 
für die Schule, sondern tatsächlich 
etwas für das Leben gelernt. 

Der Atari ST hat sich in der kurzen Zeit 
seit seiner Markteinführung als ausge¬ 
sprochen sprachbegabt erwiesen. 
Neben Logo, C, Basic (hier stottert er 
noch ein klein wenig), Förth, Modula 
und verschiedenen anderen Sprachen, 
spricht und versteht er seit einiger Zeit 
auch Pascal. 

Auf dem Markt gibt es im Moment 
zwei Pascal-Systeme zu kaufen, das 
von Atari selbst vertriebene ST-Pascal 
(Preis: zirka 250 Mark) und das MCC- 
Pascal (Preis: 340 Mark) der engli¬ 
schen Firma Metacomco. Beide Pascal- 
Versionen stellen komplette Entwick¬ 


lungssysteme dar, die auch die Pro¬ 
grammierung der grafischen Bediener¬ 
oberfläche GEM zulassen. Allerdings 
sind beide Systeme TOS-Applikatio- 
nen, also nicht in eine grafische Ober¬ 
fläche eingebunden. 

Zum Lieferumfang des ST-Pascal 
gehört neben einem 74-seitigen 
deutschsprachigen Handbuch in halt¬ 
barer Ringheftung eine 3 ^-Zoll- 
Diskette mit 23 Dateien. Der Besitzer 
eines Entwicklungspaketes Atari 520 
ST findet hier einige alte Bekannte vor, 
nämlich die GEM-Libraries AESBIND 
und VDIBIND sowie die Hilfsprogramme 
BATCH.TTP, RM.PRG und WAIT.PRG 
aus dem C-Compiler-System von Digital 
Research. Der Pascal-Compiler be¬ 
steht aus einer gut 128 KByte großen 
Datei PASCAL. PRG. Dazu gehören die 
speziellen Pascal-Libraries PASLIB und 
PASGRA.O, und eine Textdatei 
ERRORS.TXT mit den Standard- 
Fehlermeldungen des Pascal. Vervoll¬ 
ständigt wird das Angebot durch einige 
Steuerdateien zum Compilieren und 
Linken (die .BAT-Dateien), durch den 
Linker FASTLINK.PRG, eine Include- 
Datei SCREEN.INC mit den VT52-Steu- 
ercodes, einige Beispielprogramme als 
Pascal-Quelltext und durch den TOS- 
Editor EDITTTP. 

Der Editor ist ein Full-Screen-Editor 
mit Steuerung durch Cursortasten und 
Control-Codes. Die Funktionstasten 
sind nicht belegt. Ebenfalls vorhanden 
sind einige höhere Editor-Funktionen 
wie Suchen/Ersetzen und Blockver¬ 
schieben. Nach Eingabe von CTRL-K 
können Befehle zur Steuerung des 
Datenverkehrs mit Diskettenlaufwerken 
eingegeben werden. 

Dieser Editor erlaubt auch das Bear¬ 
beiten umfangreicher Quelltexte. Wer 
allerdings schon einmal einen Text- 
Editor mit grafischer Bedieneroberflä¬ 
che benutzt hat, wird den GEM-Komfort 
schmerzlich vermissen. Da der Compi¬ 
ler des ST-Pascal ASCII-Dateien als 
Quelltexte erwartet, kann jedoch 
selbstverständlich jeder Editor benutzt 
werden, der solche Dateien erzeugt. 

Im Gegensatz zu dem nicht allzu kom¬ 
fortablen Editor ist der Compiler PAS- 
CAL.PRG geradezu luxuriös ausgestat¬ 
tet. Er kann sowohl durch Anweisungen 
aus einer Kommandozeile beim Compi¬ 
lerstart, als auch durch Anweisungen 
aus dem Quelltext in vielfältiger Weise 
gesteuert werden. 

Das Handbuch gibt ausführlich dar¬ 
über Auskunft. Der Compiler erzeugt 
eine Objektcode-Datei im 68000-Ma- 


schinencode, die ein Linker (FAST¬ 
LINK.PRG) mit Teilen der Library- 
Dateien zu fertigen Programmen ver¬ 
bindet. Diese Programme enthalten ein 
sogenanntes Runtime-Modul und sind 
deshalb wie andere TOS- oder GEM- 
Applikationen aus dem GEM-Desktop 
abrufbar. Der Sprachumfang nach dem 
ISO-Standard ist beträchtlich erweitert, 
zum Beispiel durch Implementierung 
des Variablentyp STRING. Weiterhin 
sind die sehr schnellen Grafik-Routinen 
des ST-Betriebssystems, das soge¬ 
nannte LINE_A-Interface, direkt als 

Standard-Prozeduren und -Funktionen 
aufrufbar. Ebenso einfach erfolgt der 
Aufruf von Betriebssystem- und GEM- 
Routinen. Spezielle Externdeklaratio¬ 
nen (GEMDOS, XBIOS, BIOS und C) im 
Quelltext bewirken die Einbindung der 
entsprechenden Library-Module beim 
Linken. Alle vordefinierten Funktionen 
erläutert das Handbuch recht ausführ¬ 
lich, sogar mit kleinen Beispielprogram¬ 
men. Dennoch kann das Handbuch ein 
Pascal-Lehrbuch für Anfänger nicht 
ersetzen. Hierzu sei auf die einschlä¬ 
gige Fachliteratur verwiesen. 

Der schon erwähnte Linker FAST¬ 
LINK.PRG ersetzt die beiden Pro¬ 
gramme LINK68.PRG und REL- 
MOD.PRG, die mit den ersten Versio¬ 
nen des ST-PASCAL geliefert wurden. 
Die hohe Geschwindigkeit des Linkvor¬ 
ganges mit FASTLINK.PRG ist in Bild 1 
dokumentiert. Besitzer des C-Compi- 
lers von Digital Research aus dem Ent¬ 
wicklungspaket können den neuen 
Blitzlinker auch für das Linken Ihrer C- 
Programme verwenden. 


Schnell wie der Blitz 

Bei allem Positiven, was bisher über 
das ST-Pascal zu vermerken war, darf 
ein Ärgernis nicht unerwähnt bleiben. 
Der Pascal-Compiler ist mit einem einfa¬ 
chen Kopierschutz versehen, der auf¬ 
grund seiner Primitivität kaum Schutz 
vor illegalem Kopieren bietet. Dafür 
bringt er aber beim Arbeiten mit einer 
RAM-Disk oder, wenn einmal verfügbar, 
mit einem Festplatten-Speicher unnöti¬ 
gen Zeitverlust beim Compilieren. 
Selbst wenn alle Dateien der Pascal- 
Systemdiskette auf eine RAM-Disk 
oder eine Festplatte übertragen sind, 
muß sich bei der Compilierung die 
Pascal-Diskette im Diskettenlaufwerk A 
befinden. Bei jedem Compilerlauf, egal 
auf welchem Externspeicher sich der 
Compiler befindet, wird mehrfach (!) auf 
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eine besonders präparierte Schutzspur 
auf der Pascal-Diskette zugegriffen. 
Dankenswerterweise hatte der Pro¬ 
grammierer beim Linker ein Einsehen 
und verzichtete auf derartige Kinde¬ 
reien. 

Das MCC-Pascal wird auf zwei Dis¬ 
ketten geliefert, die insgesamt 57 
Dateien enthalten. Das mitgelieferte 
Handbuch mit etwa 200 Seiten ist lei¬ 
der nur in englischer Sprache erhältlich. 
Wer Englisch gut beherrscht, findet hier 
allerdings sehr ausführliche Erläuterun¬ 
gen zu Befehlsumfang und Systembe¬ 
dienung. Das System setzt sich aus 
ähnlichen Elementen zusammen wie 
beim ST-Pascal. Man findet Editor, 
Compiler, Include-Dateien zum Aufru¬ 
fen von GEM-Routinen, Linker und 
Libraries, sogar gut dokumentierte 
Assembler-Quelltexte der GEM-Libra- 
ries sind vorhanden. Auch hier trifft man 
zwei wohlbekannte Programme. Wie 
bei allen Metacomco-Computerspra- 
chen wird der TOS-Editor ED.TTP mit¬ 
geliefert. Dieser Editor von beträchli- 
cher Leistungsstarke war bereits 
Bestandteil der zweiten Serie der Atari- 
Entwicklungspakete, und dürfte ent¬ 
sprechend weit verbreitet sein. Leider 
hat sich Metacomco noch nicht zur Ein¬ 
bindung in eine GEM-Oberfläche ent¬ 
schließen können. 

Als Linker findet eine Updateversion 
des GST-Linkers aus dem GST- 
Assembler und dem GST-C Verwen¬ 
dung. Er kann hier aber nicht wie etwa 
im Assembler aus einer grafischen 
Bedieneroberfläche gestartet werden. 
Besitzer des GST-Assemblers können 
jedoch ohne große Schwierigkeiten 
das gesamte Pascal-System in die 
Oberfläche des Assemblers integrie¬ 
ren. Den Pascal-Compiler startet näm¬ 
lich auch die Option »Run Program« im 
File-Menü. Der Linker läßt sich wie im 
Assembler aus dem entsprechenden 
Link-Menü steuern und starten. Auch 
die vielfältigen Funktionen zur Doku¬ 


mentation des Linkvorganges sind 
ansprechbar. 

Der Compiler PASCAL.TTP besitzt 
viele Optionen, die jedoch nur aus einer 
Kommandozeile bei Compilerstart, 
nicht aber aus dem Quelltext, aufrufbar 
sind. Er erzeugt aus dem Pascal- 
Quelltext eine Objektcode-Datei im 
GST-Förmat mit dem Dateityp BIN, die 
durch den GST-Linker bearbeitet wer¬ 
den kann. Es ist aber auch eine 
Compiler-Option einstellbar, die die 
Compilierung des Quelltextes in das 
Format des ASS68 aus dem Entwick¬ 
lungspaket ermöglicht. Aus diesem 
Grunde sind die Pascal-Library PASLIB, 
die GEM-Library GEMLIB und das 
Runtime-Modul STARTUP als BIN- 
Dateien für den GST-Linker und als .0- 
Dateien für Digital Research Linker 
(LINK68 oder FASTLINK) auf den Dis¬ 
ketten vorhanden. 


Zwei Disketten 
voll Pascal 


Zum Test und zum Vergleich mit dem 
ST-Pascal wurde nur die GST-Option 
verwendet. Die fertigen Programme 
sind wie beim ST-Pascal auch ohne Pas¬ 
calsystem lauffähig und wie normale 
GEM- oder TOS-Applikationen zu 
benutzen. 

Was leistet der MCC-Pascal- 
Compiler? Um es gleich vorweg zu 
sagen, MCC-Pascal ist nur etwas für 
ausgesprochene Pascal-Puristen. Der 
Sprachumfang umfaßt genau das ISO- 
Standardpascal, nicht mehr, aber auch 
nicht weniger. Der Variablentyp 
STRING fehlt ebenso wie die Funktion 
KEYPRESS. Dinge also, die die Pascal¬ 
programmierung erleichtern. Leider 
kann die vorliegende Version des MCC- 
Pascal keine Betriebssystem- oder 

LINE_A-Aufrufe durchführen. Die 

GEM-Funktionen sind über eine 


Gruppe von INCLUDE-Dateien zugäng¬ 
lich, die EXTERN-Deklarationen von 
AES- und VDI-Routinen sind entspre¬ 
chend den Digital Research-Spezifika¬ 
tionen zum GEM-System enthalten. Die 
eigentlichen Routinen befinden sich in 
der Library GEMLIB, die allerdings noch 
nicht ganz fehlerfrei zu arbeiten 
scheint. 

Bei einem Vergleich der beiden 
Pascal-Versionen wurden die Zeiten für 
Compilierung und Linken des Bench¬ 
mark-Klassikers »Sieb des Eratosthe- 
nes« sowie die Laufzeiten der erzeug¬ 
ten Programme für einen Durchlauf zur 
Ermittlung der Primzahlen gemessen 
(Ergebnisse in Bild 1). 

Der MCC-Compiler arbeitet sehr 
schnell. Er ist beim Arbeiten mit der Dis¬ 
kette schneller als der ST-Pascal- 
Compiler mit einer RAM-Disk. Genau 
umgekehrt verhält es sich hinsichtlich 
der Linkdauer. Hier hat FASTLINK ein¬ 
deutig die Nase vorn. Geradezu sensa¬ 
tionell ist jedoch der Unterschied in der 
Laufzeit der Programme. Mit gut 17 
Sekunden braucht das mit MCC- 
PASCAL erzeugte Programm länger als 
das entsprechende Turbo-Pascal- 
Programm unter CP/M-Emulation. 

Bild 2 gibt einen weiteren Test wieder, 
der neben der Laufzeit der Programme 
die Rechengenauigkeit mit Fließkom¬ 
mazahlen überprüft. Dabei wird in einer 
WHILE...DO-Schleife von einer vorge¬ 
gebenen Zahl solange der Wert 0,1 
subtrahiert, bis die vorgegebene Zahl 
den Wert 0 unterschreitet. Dies müßte 
bei einem Startwert 100000 nach 
genau einer Million Substraktionen 
erreicht sein. Wie Bild 2 zeigt, besteht 
der ST-Pascal-Compiler diesen Tast mit 
Bravour. Erst bei Startwert 100000 tre¬ 
ten merkbare Ungenauigkeiten auf. Der 
MCC-Pascal-Compiler macht bereits 
bei Startwert 100 sichtbare Fehler, bei 
Startwert 100000 wird der Wert 0 
bereits nach 990564 Substraktionen 
erreicht. 

Aufgrund dieser Ergebnisse fällt eine 
abschließende Beurteilung leicht. Das 
MCC-Pascal ist teurer, hat den geringe¬ 
ren Sprachumfang, erzeugt langsa¬ 
mere Programme und rechnet unge¬ 
nauer. Auf der Plusseite lassen sich die 
geringere Compilierzeit und der bes¬ 
sere Editor verbuchen. 

In allen wichtigen Punkten ist jedoch 
der ST-Pascal-Compiler die eindeutig 
bessere Wahl. Trotz des geringeren 
Preises besitzt er neben dem komplet¬ 
ten Sprachumfang des ISO-Standard- 
Pascal viele wichtige Erweiterungen, 
die die Fähigkeiten des Atari ST besser 
ausnutzen. Auch die Laufgeschwindig¬ 
keit der erzeugten Programme läßt 
kaum Wünsche offen. Die Abiturreife 
kann ohne Bedenken zuerkannt wer¬ 
den. (W. Fastenrath/hb) 


Compilierzeiten »Sieb des Eratosthenes« 


Diskettenbetrieb 

RAM-Disk 

Laufzeit 

Compiler Linker 

Compiler Linker 


MCC-PASCAL 12,7 sec 106,0 sec 

1,9 sec 9,8 sec 

17,3 sec 

ST-PASCAL 51,0 sec 29,7 sec 

14,8 sec 1,1 sec 

0,7 sec 


Bild 1. S wie super, T wie Tempo: Supertempo von ST-PASCAL 


Rechengenauigkeit mit REAL-Zahlen 

MCC-PASCAL ST-PASCAL 


Startwert 

Endwert 

Subtraktionen 

Zeit 

Endwert 

Subtraktionen 

Zelt 

100 

0,0010 

1000 

1,3 

0,0000 

1000 

0,5 

1000 

0,0971 

10000 

7,6 

0,0000 

10000 

3,0 

10000 

0,0491 

100015 

72,8 

0,0000 

100000 

25,8 

100000 

0,0964 

990564 

660,6 

0,0853 

1000000 

241,0 

200000 

- 

- 

- 

0,0437 

2000000 

478,3 


Bild 2. Rechnen will gelernt sein 










Pascal auf dem C64 


Pascal ist an Universitäten und 
in Software-Häusern gleicher¬ 
maßen anerkannt. Probleme 
vollständig zu analysieren und 
strukturiert zu programmieren - 
das bringt Pascal Ihnen bei. 

D ie von Wirth entwickelte Spra¬ 
che Pascal lief zunächst nur 
auf Großrechnern. Seinen Sie¬ 
geszug auf Mikrocomputern trat Pascal 
an, als auf der Universität von California 
in San Diego (UCSD) das berühmte 
UCSD-Pascal entstand. Es ist eine 
Anpassung des Wirth’schen Standard- 
Pascal an einen Mikrocomputer und 
enthält sowohl Einschränkungen als 
auch Erweiterungen. 

Pascal-Versionen für den Commo- 
dore 64 gibt es etwa seit 1983. Dabei 
handelt es sich in der Regel um »Enkel« 
des Wirth’schen Urcompilers, bei 
denen allen man gewisse Abstriche 
machen muß: Sie erzeugen keine 
Maschinensprache für den C64, son¬ 
dern einen Zwischencode, auch P- 
Code genannt. 


Der Compiler über¬ 
setzt in P-Code 


Im Gegensatz zur Standard-Sprache 
Basic benutzt UCSD-Pascal einen 
Compiler, der den Pascal-Quellcode in 
P-Code übersetzt. Der P-Code (P steht 
für Pseudo) ist einer wirklichen Maschi¬ 
nensprache sehr ähnlich. Man kann 
sich diese Sprache als Modell eines 
Computers vorstellen. Es besitzt 
eigene Register, einen Stack, einen 
Heap für dynamische Variablen und 
einen Prozessor, der den P-Code aus¬ 
führt. Da all dies die Software zuwege 
bringt, die Maschine also nur virtuell 
vorhanden ist, läuft P-Code um einiges 
langsamer als echter Maschinencode. 
Die Laufzeiten liegen dann um etwa 
zwei- bis fünfmal höher als bei echtem 
Maschinencode. 

Man sollte aber die Vorteile dieses 
Verfahrens nicht übersehen. P-Code 
schlägt Basic in der Geschwindigkeit 
immer noch bei weitem (etwa 10 mal so 
schnell). Der erzeugte P-Code ist kom¬ 
pakter als der übliche Maschinencode 
und benötigt daher weniger Speicher¬ 
platz. 

Gegenüber Standard-Pascal weist 
KMMM-Pascal einige Funktionen mehr 
auf. Dazu gehört vor allem eine kom¬ 
plette String-Behandlung. Auch Bit- 
Operationen auf Integer-Variablen sind 


erlaubt. Maschinensprache-Routinen 
können von KMMM aus aufgerufen 
werden. Peek und Poke sind ähnlich wie 
in Basic zu verwenden. 

Das Programm besteht aus einem 
Editor, einem Compiler und einem 
Translator. Der Editor ist ein formatfreier 
Full-Screen-Editor mit überdurch¬ 
schnittlichem Komfort (im Vergleich 
zum Basic-Editor). Er besitzt eine Funk¬ 
tion zur Überprüfung der Syntax und 
belegt alle Funktionstasten. Eine häufig 
benötigte Befehlssequenz kann als 
Makro definiert werden. 

Der KMMM-Editor erzeugt eine 
sequentielle Datei, weshalb auch 
andere Editoren den Programmtext 
bearbeiten können. Danach wird der 
Compiler geladen. Er erzeugt bei 
Bedarf ein Listing auf dem Drucker und 
wandelt das Quellprogramm in P-Code 
um. Nach dem Laden des Translators 
übersetzt dieser nun den P-Code in 
schnelle Maschinensprache. 

Oxford-Pascal unterstützt weitge¬ 
hend alle Elemente von Standard- 
Pascal. Eine spezielle String- 
Verarbeitung unterblieb. Es verwendet 
statt dessen Variablen vom Typ 
PACKED ARRAY OF CHAR. Dafür ste¬ 
hen zusätzliche Befehle zum Erzeugen 
von Grafik und Sound bereit. Die Mög¬ 
lichkeiten des C64 lassen sich also 
auch von Pascal aus nutzen. Der Bild¬ 
schirm kann sogar in einen Grafik- und 
in einen Textbereich aufgeteilt werden. 
Solche Programme laufen allerdings 
deutlich langsamer. 

Unterstützt werden auch Peek und 
Poke, das Einfügen von Routinen in 
Maschinensprache und die Program¬ 
mierung der eingebauten Uhr. Ärgerlich 
ist lediglich die zu dünn geratene Doku¬ 
mentation von etwa 50 Seiten, bei der 
auch noch die Nummerierung der Sei¬ 
ten und ein Stichwortverzeichnis feh¬ 
len. 

Die Entwicklung von kleineren Pro¬ 
grammen gestaltet sich mit Oxford- 
Pascal angenehm. Der Basic-Editor ist 
lediglich etwas erweitert. Ansonsten 
arbeitet man genauso wie mit einem 
Basic-Programm. Der Compiler und das 
übersetzte Programm befinden sich 
gleichzeitig im Speicher. Allerdings feh¬ 
len in diesem Modus einige Befehle. 
Erst im Disk-Modus verfügt man über 
den gesamten Sprachumfang, muß 
aber dann die Zeit für das Laden des 
Compilers und das Speichern der Pro¬ 
gramme in Kauf nehmen. 

Oxford-Pascal übersetzt in P-Code. 
Es gibt aber einen Locate-Befehl, der 
eine P-Code-Datei in eine von Basic aus 


ladbare Datei umwandelt. Eine solche 
Datei benötigt dann das Oxford-System 
nicht mehr. 

Profi-Pascal hat gegenüber den obi¬ 
gen Pascal-Versionen einen entschei¬ 
denden Vorteil. Der Zugriff auf die 
1541-Floppy geht wegen der zusätzli¬ 
chen Diskettenroutinen dreimal so 
schnell vor sich. Allerdings wurde die¬ 
ser Vorteil auch mit einem entscheiden¬ 
den Nachteil erkauft. Profi-Pascal 
besitzt nämlich praktisch ein eigenes 
Betriebssystem mit Editor, Compiler 
und Hilfsprogrammen. Auf die Kompati¬ 
bilität zu anderen Programmen und 
Dateien wird damit verzichtet. 

Nach dem Laden erscheint ein Haupt¬ 
menü, von dem die anderen Programm¬ 
teile (Editor, Compiler) aus geladen 
werden. Profi-Pascal enthält viele 
zusätzliche Routinen über den norma¬ 
len Sprachumfang hinaus. So ist bei¬ 
spielsweise der Zugriff auf den gesam¬ 
ten Arbeitsspeicher auf sehr elegante 
Weise möglich. Der in Standard-Pascal 
nicht vorgesehene Typ String erlaubt 
die Manipulation von Zeichenketten. 
Der Direktzugriff auf Sätze innerhalb 
einer Datei ist mit der zusätzlichen Pro¬ 
zedur Seek möglich. 

Als weitere Eigenschaften sind das 
Verketten von Dateien und das Seg¬ 
mentieren von Programmen zu nennen. 
Programme mit Segment-Prozeduren 
laden einen Teil des Codes während 
des Programmlaufs in den Arbeitsspei¬ 
cher nach. 

Profi-Pascal besitzt komfortable 
Möglichkeiten, Assembler-Code in das 
Programm einzubinden. Schließlich 
enthält es einen eigenen Assembler. 
Der Pascal-Code selbst wird allerdings 
nicht in Maschinensprache, sondern in 
P-Code übertragen. Nachteilig ist, daß 
der Compiler nur auf der (natürlich 
kopiergeschützten) Original-Diskette ar¬ 
beiten kann. 


Pascal für Einsteiger 
und Profis 


Eine Pascal-Version für den preiswer¬ 
ten Einstieg in die interessante Sprache 
ist ganz neu im Markt&Technik Verlag 
erschienen. Es handelt sich dabei um 
einen kompletten Pascal-Kurs in Buch¬ 
form, der dazu sehr schnell und lei¬ 
stungsfähig ist und ohne Aufpreis dem 
Buch gleich auf Diskette beiliegt. 
Neben dem Compiler enthält die Dis¬ 
kette noch viele nützliche Beispielpro¬ 
gramme. Dieses »Pascal für den C 64« 
nutzt für seine Programme den gesam- 









ten Speicher des C 64 aus. Ein Full- 
Screen-Editor ermöglicht eine komfor¬ 
table Programmeingabe. Der Compiler 
akzeptiert den gesamten Standard- 
Sprachumfang mit einigen Erweiterun¬ 
gen. Das Buch enthält einen Einfüh¬ 
rungskurs mit vielen Beispielen und 
Übungsaufgaben für den Anfänger 
sowie Tips und Tricks für den Profi. Mit 
gutem Gewissen kann man Buch und 
Compiler als preiswerte Alternative zu 


den bisher bekannten Pascal- 
Versionen für den C64 empfehlen. 
Denn bei diesem Pascal-Compiler gibt 
es trotz des extrem niedrigen Preises 
keinerlei Abstriche an Sprachumfang 
oder Dokumentation. Als Autor von 
Buch und Compiler zeichnet Florian 
Matthes, den wir auch als Autoren für 
den Pascal-Kurs in diesem Sonderheft 
gewinnen konnten. 

Die Entscheidung für einen der vier 


Compiler ist sicherlich nicht einfach. 
Wer einfache Bedienung wünscht, dem 
sei Oxford-Pascal empfohlen. Reine 
Maschinensprache wird nur von 
KMMM-Pascal erzeugt. Profi-Pascal 
wiederum bietet den größten Sprach¬ 
umfang. 

Und ein C 64-Fan, ob Einsteiger oder 
Profi, wird schließlich mit Markt&Tech- 
nik-Pascal am meisten Spaß haben. 

(Anton Gruber/cg) 



Turbo-Pascal: 
der Renner 


Seit etwas mehr als zwei Jahren 
gibt es einen Pascal-Compiler, 
der auf dem Computermarkt 
Furore gemacht hat: Turbo-Pas- 
cal. Was das Programm alles lei¬ 
stet, ist schon fast unheimlich. 

D ie Gründe für den grandiosen 
Erfolg von Turbo-Pascal sind 
recht einfach nachzuvollzie¬ 
hen. Da ist zuerst einmal der (damals) 
konkurrenzlos niedrige Preis. In den 
USA kostet Turbo-Pascal etwa 50 Dollar 
- in Deutschland um die 200 Mark. Ein 
Direktimport lohnt sich aber dennoch 
nicht, weil Sie Zoll und Verpackungsge¬ 
bühren bezahlen müßten, die den 
scheinbaren Preisunterschied wieder 
ausgleichen. 

Einen Pascal-Compiler für 200 Mark 
- das gab es vor Turbo-Pascal nirgends 
auf dem Computermarkt. So fanden 
sich nicht wenige, denen das Risiko 
eines Fehlkaufs klein genug erschien 
und sich aus diesem Grund Turbo- 
Pascal gekauft haben. MS-Pascal von 


Microsoft und Pascal/MT+ von Digital 
Research, die beiden vormals haupt¬ 
sächlich benutzten Compiler, kosteten 
je nach Betriebssystem zwischen 1000 
und 2000 Mark. Für MS-Pascal gilt dies 
heute noch, während Pascal/MT+ in 
einer Version für den Schneider CPC 
6128 inzwischen auch auf ungefähr 
200 Mark herunterging. Damit zielt es 
direkt auf den Turbo-Pascal-Markt. 

Allein der Preis kann aber dennoch 
nicht für den Erfolg von Turbo-Pascal 
verantwortlich sein. Schließlich gibt es 
heute auch schon Pascal-Compiler ab 
100 Mark (zum Beispiel Nevada- 
Pascal), die trotz ihres günstigen Prei¬ 
ses eher ein Schattendasein führen. 

Zählen wir also weiter Turbo-Pascal- 
Vorzüge auf: Turbo-Pascal ist ein inte¬ 
griertes Programmpaket, das aus 
einem Editor, dem eigentlichen Compi¬ 
ler und einer Laufzeitumgebung be¬ 
steht. Was das heißt, kann nur jemand 
ermessen, der schon mit anderen 
Compilersprachen gearbeitet hat. Ein 
typischer Arbeitszyklus sieht dort etwa 
so aus: Texteditor laden (meistens wird 


keiner mitgeliefert, also muß Wordstar 
oder ein anderes normales Textpro¬ 
gramm dafür herhalten), Datei anlegen, 
Text eintippen, Datei speichern, Editor 
beenden und Compiler aufrufen. Dieser 
übersetzt das Programm in Maschinen- 
Quellcode oder einen Zwischencode, 
zum Beispiel den p-Code von UCSD- 
Pascal. 

Hier scheiden sich dann die 
(Compiler-)Geister: Manche benötigen 
einen Assembler, der Maschinencode 
erzeugt, andere einen Linker, der die 
Programm-Module zusammenkettet 
und wieder andere einen Laufzeit- 
Interpreter, der die Programme - ähn¬ 
lich einem Basic-Interpreter - in der 
Zwischensprache ausführt. Wenn der 
Compiler allerdings einen Fehler mel¬ 
det, muß der Programmierer wieder mit 
dem Editor heran und die Fehler aus¬ 
bessern. Stürzt das Programm gar völlig 
ab, geht die Fehlersuche ganz von 
vorne los. 

Ganz anders dagegen arbeitet Turbo- 
Pascal. Der Programmierer gelangt in 
eine Art »Benutzerebene«, von der aus 
er Befehle geben kann. So ruft er mit 
»E« für »Edit« den eingebauten Textedi¬ 
tor auf. Dieser versteht - Segen für alle 
Wordstar-Freaks - eine Untermenge 
der Wordstar-Kommandos. Er ist aber 
auf das Editieren von Pascal- 
Programmen hin erweitert worden. So 
gibt es eine »Auto-lndent«-Funktion. 
Diese bewirkt, daß der Cursor nach 
Drücken der Enter-Taste nicht an den 
Anfang der nächsten Bildschirmzeile, 
sondern unter den Beginn der letzten 
Programmzeile gesetzt wird. Damit 
unterstützt Turbo-Pascal wirkungsvoll 
das Prinzip der Texteinrückungen, die 
Pascal-Programme so gut lesbar 
machen. Auch ist der Turbo-Editor ein 
ganzes Stück schneller als Wordstar. 
Beispielsweise führt er den Bildschirm¬ 
aufbau und die Invertierung von Text¬ 
blöcken mit Höchstgeschwindigkeit 
durch - auch eine Rechtfertigung für 
»Turbo« im Namen »Turbo-Pascal«. Die¬ 
ser Geschwindigkeitsvorteil liegt aller¬ 
dings zum Teil daran, daß der gesamte 
bearbeitete Programmtext im Speicher 
liegen muß, während Wordstar auch 
Diskettentexte bearbeiten kann. Trotz 
dieser Einschränkung eignet sich der 









Turbo-Editor nebenbei hervorragend 
zur Textverarbeitung. So sind die Block¬ 
kopierbefehle sogar auf dem CPC 464 
und CPC 664 von Schneider ohne 
Speichererweiterung funktionsfähig. 

Sobald der Benutzer den Pascal- 
Quellcode fertig eingegeben hat, 
drückt er in Wordstar-Manier CTRL-KD 
und gelangt wieder in die Kommando¬ 
ebene. Dort kann er das Diskettenlauf¬ 
werk wechseln, neue Disketten anmel¬ 
den, die Datei speichern und andere 
Dateien laden. »D« gibt ein Directory der 
angemeldeten Diskette aus und hat 
gegenüber dem CP/M-Kommando DIR 
den Vorteil, daß der freie Disketten¬ 
speicherplatz mit angezeigt wird. Der 
Benutzer erfährt aus dem Hauptmenü 
auch, wieviel Speicherplatz der Quell¬ 
text belegt und wieviel Platz noch frei 
bleibt. Mit »C« läßt sich der Compiler 
starten, der das Programm mit extrem 
hoher Geschwindigkeit (»Turbo«) über¬ 
setzt. Er besitzt jede Menge Fehlermel¬ 
dungen, die meist sehr informativ sind. 
Sobald er einen Fehler entdeckt, gibt 
Turbo-Pascal die (meistens) passende 
Meldung aus und kehrt direkt in den 
Turbo-Editor zurück. Der Cursor steht 
dann an der Stelle, an der der Fehler auf¬ 
trat. Wenn der Speicherplatz knapp 
wird, können Sie aber auch die Fehler¬ 
meldungen aus dem Programm heraus¬ 
werfen und haben damit etwa 2 KByte 
mehr Speicherplatz zur Verfügung. Alle 
Fehler erscheinen dann nur noch mit 
ihren Nummern, die im - gut gemach¬ 
ten - Handbuch nachzuschlagen sind. 

Müssen Sie sich mit fehlendem Spei¬ 
cherplatz herumschlagen (auf dem 
CPC 464 und CPC 664 verbleiben nur 
noch etwa 6 beziehungsweise 8 
KByte), bleiben aber auch noch andere 
Wege, große Programme zu überset¬ 
zen. Da wären zuerst einmal die 
Include-Files. Das sind Dateien, die 
separat auf der Diskette stehen und 
erst bei der Übersetzung in den Pro¬ 
grammcode integriert werden. Außer¬ 
dem läßt Ihnen Turbo-Pascal die Wahl, 
ob der Objektcode des Programms im 
Speicher abgelegt werden soll (Com- 
pile To Memory) oder auf Diskette. Bei 
letzterem können Sie sich zwischen 
dem Dateityp »COM« und »CHN« ent¬ 
scheiden. Der Unterschied besteht 
darin, daß im ersten Fall das erzeugte 
Programm mit einer Laufzeitbibliothek 
ausgestattet ist. Diese kostet zwar eini¬ 
ges an Speicher- und Diskettenplatz, 
erzeugt aber Programme, die unabhän¬ 
gig von Turbo-Pascal arbeiten. 

Die Programme sind - wie bereits 
gesagt - reiner Maschinencode. Die 
8-Bit-Variante von Turbo-Pascal erzeugt 
Z80-Code und ist damit eines der weni¬ 
gen CP/M-Programme, die nicht auf 
Computern mit 8080/8085-Prozessor 
gestartet werden können, sondern den 


Z80-Chip voraussetzen. Andererseits 
sind die Z80-Erweiterungen sehr lei¬ 
stungsfähig und bewirken kompakteren 
und schnelleren Maschinencode. 

Was den Programmierer aber wohl 
am brennendsten interessiert, ist der 
Befehlsvorrat des Compilers - ein wei¬ 
terer Pluspunkt für Turbo-Pascal. Wäh¬ 
rend viele Pascal-Compiler der niedri¬ 
geren Preisklassen »Subsets« des 
Sprachstandards sind, also nur Teile 
der Sprache verstehen, ist Turbo- 
Pascal ein »Superset« - und was für 
eines! 

Niklaus Wirth entwickelte Pascal 
eigentlich nur als Lehr- und Unterrichts¬ 
sprache. Dementsprechend fehlen in 
Standard-Pascal viele nützliche und 
dringend notwendige Dinge. Turbo- 
Pascal wartet mit einer ganzen Menge 
von diesen auf. Da gibt es zum Beispiel 
den Datentyp STRING, den man nun 
nicht mehr durch einen ARRAY OF 
CHAR simulieren muß. Stilgerecht feh¬ 
len auch nicht die entsprechenden 
Funktionen und Prozeduren zur String¬ 
behandlung. Selbstverständlich wird 
die Dateibehandlung auf Diskette und 
Festplatte samt Relativ- und Direktzu¬ 
griffdateien unterstützt. Neu ist auch 
der Datentyp BYTE. 


Für Kenner ein Plus: 
Maschinennähe 


Für Maschinensprache-Kenner, de¬ 
nen die Entwicklung von reinen 
Maschinencode-Programmen zu müh¬ 
sam ist, hält Turbo-Pascal eine Reihe 
von maschinennahen Erweiterungen 
bereit: SHR (Shift Right) und SHL (Shift 
Left) erlauben das Links- und Rechts¬ 
schieben von Bits in Zahlen und Varia¬ 
blen. Die Funktionen Hl und LO liefern 
das High- und Lowbyte einer Integerva¬ 
riablen in eine Byte-Variable: 

Program HiLow; 

Var i:Integer; 

Begin 
ReadLn(i); 

WriteLn(Hi(i),' ',Lo(i))j 
End. 

Dieses kleine Beispielprogramm liest 
eine 16-Bit-Zahl von der Tastatur ein 
und gibt deren High- und Lowbyte aus. 

Weitere maschinennahe Funktionen 
sind ADDR zur Ermittlung der Adresse 
einer Variablen und PORT zum direkten 
Zugriff auf die Prozessor-Ports. Das 
Pseudo-Array MEM (»Memory«) simu¬ 
liert die beliebten PEEK- und POKE- 
Befehle aus Basic. Diese Sprache 
erscheint im Gegensatz zu Turbo- 
Pascal regelrecht archaisch. 

Auf einer viel höheren Ebene arbeiten 
die Befehle zur Verwaltung dynami¬ 
scher Variablen, nämlich MARK, RE¬ 
LEASE und DISPOSE. 


Natürlich präsentiert sich Turbo- 
Pascal nicht »nackt«. Neben dem 
TURBO.COM-File, das mit 31 KByte 
Länge das Hauptprogramm darstellt, 
sowie TURBO.MSG (System-Meldun¬ 
gen) und TURBO.OVR (ein 2KByte- 
Overlay) findet sich noch MC.PAS, das 
als Demonstration der Leistungsfähig¬ 
keit des Compilers dient. MC.PAS ist ein 
kleines Tabellenkalkulationsprogramm, 
genannt MicroCalc. Es ist verständli¬ 
cherweise nicht so leistungsfähig wie 
seine großen Brüder (etwa Multiplan, 
Visicalc oder Supercalc), aber es erfüllt 
seinen Zweck recht gut. Es wurde aller¬ 
dings auch gar nicht zur »richtigen« 
Arbeit geschrieben, sondern soll viel¬ 
mehr exemplarisch die Fähigkeiten von 
Turbo-Pascal zeigen. Wenn die Kalkula¬ 
tionsaufgaben nicht allzu kompliziert 
werden, erspart es trotzdem das Geld 
für die Anschaffung eines anderen Pro¬ 
gramms. 

Zum Lieferumfang gehört ferner ein 
Programm, das andere Pascal- 
Programme auf dem Drucker auflistet. 
LISTER.PAS erzeugt an den passenden 
Stellen einen Seitenvorschub und kann 
auf Wunsch Zeilennummern in den Text 
einfügen und Pascal-Schlüsselwörter 
unterstreichen. 

Für die Schneider-Computer gibt es - 
gegen Aufpreis, versteht sich - eine 
Grafikerweiterung, die die hervorragen¬ 
den Fähigkeiten dieser Computer auf 
diesem Gebiet unterstützt. Unter ande¬ 
rem dient TURTLE.PAS als einfaches 
Zeichenprogramm nach dem Prinzip 
der Logo-Schildkröten-Grafiken. WIN¬ 
DOW. PAS zeigt, wie das »Fensterin« 
unter Pascal funktioniert. 

Immer mehr Firmen versuchen, sich 
an den Erfolg von Turbo-Pascal anzu¬ 
hängen und liefern Programmsammlun¬ 
gen für alle möglichen Anwendungs¬ 
zwecke. Zum Beispiel werden da Turbo- 
Lader, Turbo-Machine, Turbo-Screen 
oder Turbo-Data angeboten. Von 
Heimsoeth-Software, der deutschen 
Vertriebsfirma von Turbo-Pascal, stam¬ 
men unter anderem Turbo-Graphix, 
Turbo-Editor und Turbo-Gameworks. 
Doch aufgepaßt: Turbo-Pascal gibt es 
auch für IBM-Computer unter MS-DOS. 
Viele der Programmpakete arbeiten nur 
unter diesem Betriebssystem und sind 
für CP/M-Benutzer unbrauchbar. Das 
betrifft zum Beispiel auch einige der 
gerade genannten Programme. 

Leider vernachlässigt Borland zur 
Zeit etwas die CP/M-80-Version von 
Turbo-Pascal. So hat die 8-Bit-Variante 
vom »Lifting« in der neuen 3.0-Version 
kaum profitiert, während das MS-DOS- 
Pendant noch weiter verbessert wurde. 
Dennoch: An Turbo-Pascal gibt es nicht 
mehr allzu viel besser zu machen. Es ist 
einfach schon nahezu perfekt. 

(Martin Kotulla/hg) 






Die 

C-Crew 
im Test 

C-Compiler sind in aller Munde, 
und die Beliebtheit der Sprache 
C steigt ständig. Steigen auch 
Sie ein in diese Supersprache. 
Wir zeigen Ihnen den richtigen 
C-Compiler für den Atari ST. 



D as Angebot an C-Compilern für 
den Atari ST wächst: Kein Wun¬ 
der, denn C ist eine Sprache, 
die das Betriebssystem des Atari ST voll 
unterstützt. Das Betriebssystem wurde 
auch in dieser Sprache verfaßt. 

Da Softwarehäuser C-Programme 
wegen ihrer Portabilität sehr schätzen, 
ist im Lieferumfang des Entwicklungs¬ 
pakets zum Atari ST auch der C-Com¬ 
piler von Digital Research enthalten. 

Dieser Compiler, als Teil eines Profi- 
Systems, hat zwar noch einige Fehler, 
aber es läßt sich vernünftig damit arbei¬ 
ten. Den Heimanwender interessiert 
das System wegen des hohen Preises 
wohl weniger. Atari gibt den Compiler 
leider nur mit dem Entwicklungspaket 
ab - einzeln ist er nicht zu beziehen. 

Es gibt aber inzwischen gute Alterna¬ 
tiven. Allerdings ist wegen des 
begrenzten Angebots die Auswahl 
noch nicht sehr groß; doch einige Fir¬ 
men kündigten bereits eigene Compiler 
an, und allzulange werden diese wohl 
auch nicht mehr auf sich warten lassen. 
Für kommende rosige Zeiten unterbrei¬ 
ten wir Ihnen hier einige Auswahlkrite¬ 
rien für C-Compiler. 

Als erstes sollten Sie darauf achten, 
wie vollständig die Sprache implemen¬ 
tiert ist. Mit allen 28 Schlüsselwörtern 
ist der Sprachumfang vollständig. Viele 
Entwickler verzichten jedoch auf das 
eine oder andere Leistungsmerkmal, 
und da muß man sich genau überlegen, 
inwieweit das für die eigenen Zwecke 
tragbar ist. 

Erfahrungsgemäß wächst mit dem 
Wissen auch der Anspruch. Schnell 
stellt man fest, daß der Compiler, der 
noch vor kurzem genügte, für die näch¬ 
ste Anwendung große Mängel aufweist. 
Man sollte sich vorher genau über das 
Produkt informieren und eventuell 
etwas tiefer in die Tasche greifen, um 
vor einer Enttäuschung sicher zu sein. 


Eine »Einsteigerversion« ist der 
C-Compiler von GST. Er kann nur ganze 
Zahlen verarbeiten und führt keine 
Fließkomma-Arithmetik durch. Damit 
beschränkt sich sein Einsatzgebiet auf 
Systemprogrammierung und weitere 
Anwendungsprogramme, wie Textver¬ 
arbeitung, Datenbanken und Spiele. 

Natürlich kann man sich die Floa- 
tingpoint-Routinen auch selbst schrei¬ 
ben, aber es gibt bereits andere C- 
Compiler für den Atari-ST, die nicht viel 
mehr kosten und bereits alles be¬ 
inhalten. Beim GST-Compiler verzich¬ 
tete man auch auf die Strukturen (das 
Schlüsselwort »structure« fehlt). Um 
gute Algorithmen zu schreiben, ist man 
aber auf Datenstrukturen, und damit auf 
dieses Schlüsselwort angewiesen. 

Kompletter 

Sprachumfang 

Wer etwas tiefer einsteigen möchte in 
die faszinierende Programmiersprache 
C, sollte lieber zum Compiler von Lattice 
greifen. Er ist der einzige, der den kom¬ 
pletten Sprachumfang von Kernighan 
und Ritchie besitzt. Beim DRI-Compiler 
arbeiten die Funktionen scanf, für for¬ 
matierte Ausgabe, und getchar, um ein 
Zeichen einzulesen, nicht korrekt. Der 
Lattice-Compiler hat aber wiederum 
andere kleine Fehler. Beim Arbeiten mit 
Fenstern macht er Schwierigkeiten, da 

er eine falsche »Window_handle«- 

Nummer zurückgibt. Ansonsten darf 
man ihn getrost als die zur Zeit beste 
Implementation für den ST bezeichnen. 

Eines der wichtigsten Kriterien für 
einen C-Compiler sind seine Libary- 
funktionen. 

Zum Standard-C gehört eine 
Standard-Libary. Informationen über 
den Umfang erhält man aus der Sprach- 


beschreibung von Kernighan und Rit¬ 
chie (siehe Literaturverzeichnis), die 
auch den C-Standard definierte. 

Dieser sogenannte K&R-Standard 
sollte in der Libary auf keinen Fall feh¬ 
len. 

Wichtig ist außerdem, wie die Zugriffe 
auf GEM und das Betriebssystem gere¬ 
gelt sind. Für die GEM-Programmierung 
selbst bietet der GST-Compiler am mei¬ 
sten an. Bei den Betriebssystemauf¬ 
rufen macht er leider große Abstriche. 

Die Libary enthält keine der Funktio¬ 
nen »gemdos«, »bios« und »xbios«, son¬ 
dern lediglich eine kleine Auswahl vor¬ 
definierter »gemdos«-Funktionen. Für 
den Profi ist das kein Problem: Mit nur 
wenigen Assembler-Kenntnissen kann 
man sich die fehlende Betriebssystem- 
Schnittstelle selber stricken. Dennoch, 
auch diese Einschränkung sollten Sie 
bei einer Kaufentscheidung berück¬ 
sichtigen. 

Hier schneidet wiederum das Lattice- 
Produkt am besten ab. Seine Libary- 
Funktionen sind außerordentlich um¬ 
fangreich. 

Zwar nicht ausschlaggebend, aber 
erwähnenswert, bleiben die Extras, wie 
zum Beispiel ein Editor. Der GST- 
Compiler zeichnet sich durch einen 
sehr guten Editor aus. Entscheidender 
aber sind Hilfen zur Fehlersuche. 

Nun kennen Sie alle zur Beurteilung 
eines C-Compilers wichtigen Kriterien. 
Haben Sie alle für Sie wichtigen Punkte 
beachtet, dann lassen Sie sich von der 
Leistungsfähigkeit Ihres C-Compilers 
überraschen. (hb) 

Info; C-Compiler von Digital Research Inc. Atari Corp. (Deutsch¬ 
land) GmbH, Frankfurter Str. 89-91, 6096 Raunheim, Tel: 
06142/41081. Nur erhältlich mit dem Entwicklungspaket für den 
Atari ST, Preis 969 Mark. 

C-Compiler von GST in Kürze bei Atari erhältlich. Preis zirka 
300 Mark. 

Lattice-C-Compiler von Metacomco. Vertrieb über Philgerma, 
Ungererstr. 42,8000 München 40, Tel. 089/395551, Preis 380 
Mark. 









Small-C — 

ein C-Compiler unter CP/M 


C wird in Zukunft immer mehr an 
Bedeutung gewinnen. C verbin¬ 
det die Eigenschaften einer 
Hochsprache mit denen einer 
Maschinensprache. C-Program- 
me sind sehr schnell. Drei gute 
Gründe für C! Unter CP/M gibt es 
jetzt einen preiswerten Einstieg. 

C ist eine Sprache, die in letzter 
Zeit an Bedeutung gewinnt. Das 
berühmte Betriebssystem Unix 
ist in C geschrieben. Und immer mehr 
kommerzielle Software wird in C ent¬ 
wickelt. Es gibt einige C-Compiler, die 
unter dem Betriebssystem CP/M lau¬ 
fen. Stellvertretend für diese präsentie¬ 
ren wir Small-C,' ein Entwicklungs¬ 
system, das eine umfangreiche Pro¬ 
grammbibliothek (Quellcode - eben¬ 
falls in C) mitbringt. 

Das Programmpaket Small-C enthält 
außer dem C-Compiler noch einen 
Makro-Assembler zur Erzeugung von 
relokatierbarem 8-Bit-Objektcode für 
8080/Z80-Prozessoren und einen Lin¬ 
ker zum Binden einzelner Module zu 
lauffähigen Programmen. Außerdem 
bereichern noch eine Menge hilfreiche 
und gleich mitgelieferte Dienstpro¬ 
gramme (Tools) dieses Paket. Als 
Hardware-Voraussetzung benötigt man 
das Betriebssystem CP/M und minde¬ 
stens 56 KByte Hauptspeicher. 

Der Commodore 128 im CP/M-Mo- 
dus findet in diesem Entwicklungs¬ 
system ein geeignetes Werkzeug, um 
mit der Sprache C die ersten Gehversu¬ 
che zu unternehmen. Aber auch für alte 
Hasen liefert es eine Menge Anregun¬ 
gen zum Programmieren. Das gesamte 
Paket ist bis auf ein paar arithmetische 
und logische Funktionen selbst in C 
geschrieben. 


C in C geschrieben 


Der C-Compiler erzeugt aus einem 
C-Quellcode einen Assembler-Quell- 
code und erst dieser wird in einen relo- 
katierbaren Objektcode übersetzt. 
Dazu eignet sich der mitgelieferte 
Small-MAC-Assembler oder der M80- 
Assembler von Microsoft. Der Sprach- 
umfang umfaßt lediglich eine Unter¬ 
menge der Sprachdefinition nach Brian 
W. Kernighan und Dennis M. Ritchie, 
den Entwicklern der C-Sprache. Die 
Definitionen, Fließkomma-Datentypen 


(float,double), sizeof, mehrdimensio¬ 
nale Arrays, Zeigerarray, Strukturen 
(struct,Union), Bit-Felder und casts feh¬ 
len. Daß aber trotzdem größere Pro¬ 
gramme erzeugt werden können, zeigt 
das Small-C-Paket selbst. Es sind alle 
Unix-Funktionen implemetiert, soweit 
sie in einer fremden Umgebung 
anwendbar sind. 


Der Small-MAC-Assembler beinhaltet 
ein ganzes Paket von Programmen. Er 
enthält im einzelnen einen Makro- 
Assembler (MAC), einen Linker (LNK) 
und einen Bibliotheksverwalter (LIB). 
Zusätzlich stehen noch ein Lader 
(LGO), ein CPU-Anpassungsprogramm 
(CMIT) und ein Dump-Programm 
(DREL) zur Verfügung. Der Makro- 


Ein-/Ausgabe 

Zeichenketten 

fopen(name, mode) 

left(str) 

freopen(name, mode, fd) 

pad(str, eh, n) 

fclose(fd) 

reverse(str) 

fgetc(fd) 

strcat(dest, sour) 

ungetc(c, fd) 

strncat(dest, sour, n) 

getchar() 

strcmp(str1, str2) 

fgets(str, sz, fd) 

Iexcmp(str1, str2) 

freadfptr, sz, ent, fd) 

strncmpfstrl, str2, n) 

read(fd, ptr, ent) 

strcpy(dest, sour) 

gets(str) 

strncpy(dest, sour, n) 

feof(fd) 

strlen(str) 

ferror(fd) 

strchr(str, c) 

clearerr(fd) 
fputc(c, fd) 

strrchr(str, c) 

putchar(c) 
fputs(str, fd) 

Zeichenklassifizierung 

puts(str) 

isalnum(c) 

fwritefptr ,sz, ent, fd) 

isalfa(c) 

write(fd, ptr, ent) 

isascii(c) 

fflush(fd) 

iscntrl(c) 

cseek(fd, offset, from) 

isdigit(c) 

rewind(fd) 

isgraph(c) 

ctell(fd) 

islower(c) 

unlink(name) 

isprint(c) 

rename(old, new) 

ispunct(c) 

auxbuf(fd, size) 

isspace(c) 

iscons(fd) 

isupper(c) 

isatty(fd) 

isxdigit(c) 

printf(str, argl, ...) 
fprintf(fd, str, argl, ...) 

lexorderfcl, c2) 

scanf(str, argl, ...) 
fscanfffd, str, argl, ...) 

Zeichenumwandlung 

toascii(c) 

Formatkonvertierung 

atoi(str) 

tolower(c) 

toupper(c) 

atoib(str, base) 
itoa(nbr, str) 

mathematisch 

itoabfnbr, str, base) 

abs(nbr) 

dtoi(str, nbr) 
otoifstr, nbr) 

sign(nbr) 

utoi(str, nbr) 
xtoi(str, nbr) 

Programmkontroüe 

itod(nbr, str, sz) 

calloc(nbr, sz) 

itoo(nbr, str, sz) 

malloc(nbr) 

itou(nbr, str, sz) 

avail(abort) 

itox(nbr, str, sz) 

free(addr) 

getarg(nbr,str,sz,arge,argv) 

poll(pause) 

exit(errkode) 


Tabelle 1. Vollständiges Verzeichnis der Funktionen von Small-C 












CHG(Change) 

Ersetzen von Zeichenketten in Textdateien 

CNT(Count) 

Zählen von Zeichen, Wörtern oder Zeilen 

CPV(Copy) 

Kopieren von Textdateien 

CPT(Crypt) 

Ver- und entschlüsseln von Dateien 

DBT(Detab) 

Ersetzen von Tab-Zeichen durch Leerzeichen 

EDT(Edit) 

Zeileneditor 

ETB 

Gegensatz von DBT 

FND(Find) 

Suchen von Zeichenketten in Textdateien 

FNT 

Auswahl von Schriftarten des Epson-FX-80 und 
kompatible Drucker 

FMT(Format) 

Formatieren (Druck aufbereiten) von Textdateien 

LST(List) 

Ausgabe von Textdateien auf den Bildschirm 

MRG(Merge) 

Zusammenhängen von zwei sortierten Textdateien 

PRT(Print) 

Drucken von Textdateien 

SRT(Sort) 

Sortieren von Textdateien 

TRN(Trans) 

Kopiert Textdateien und ändert Zeichenketten 


Tabelle 2. Dienstprogramme für Textverarbeitung und Dateiverwaltung 


Assembler MAC ist ein 2-Pass- 
Compiler zur Erzeugung von verschieb¬ 
barem Objektcode. Der erzeugte Code 
liegt im Microsoft-8-Bit-Format zur Wei¬ 
terverarbeitung mit dem Linker LNK 
oder L80 von Microsoft vor. Diese Lin¬ 
ker verknüpfen einzeln übersetzte 
Module oder solche, die in einer Biblio¬ 
thek stehen, zu einem lauffähigen Pro¬ 
gramm, einer sogenannten COM-Datei. 
Auch der Lader ist ein nützliches Hilfs¬ 
mittel. Er ermöglicht es, Programme an 
eine bestimmte Adresse in den Spei¬ 
cher zu laden und wahlweise zu starten. 
Damit werden Betriebssystemerweite¬ 
rungen beim Booten (Kaltstart) instal¬ 
liert. Der Bibliotheksverwalter (LIB) ver¬ 
waltet eine Sammlung von verschiebba¬ 
ren Objektmodulen. In der Tabelle 1 
sehen Sie eine Übersicht aller vorhan¬ 
denen Funktionen. Die Verwaltung ge¬ 
schieht mit Hilfe einer Indexdatei. In die¬ 
ser Datei stehen die Namen und die 
Adressen der Module aus der Biblio¬ 
thek. Wird nun ein Programm mit dem 
Linker zusammengebunden, so sucht 
der Computer zunächst den Namen in 
der Indexdatei. Bei einem positiven 
Suchergebnis wird das Objektmodul 


aus der Bibliothek an das lauffähige 
Programm angehängt. Der Assembler 
arbeitet mit Maschinen-Instruktions- 
Tabellen, um einen Quellcode zu über¬ 
setzen. Um den Assembler für ver¬ 
schiedene Prozessoren (8080/Z80) 
zu verwenden, muß ihm eine solche 
Tabelle zur Verfügung stehen. Das Pro¬ 
gramm CMIT paßt den Small-MAC- 
Assembler einem bestimmten Prozes¬ 
sor an, indem er eine Tabelle (es sind für 
beide Prozessortypen die Tabellen in 
Quellform vorhanden) in ein internes 
Format verwandelt und dieses in den 
ausführbaren Small-MAC-Assembler 
kopiert. Das Hilfsmittel DREL erzeugt 
aus jedem Objektmodul eine Liste in 
hexadezimalem Format. Die Ausgabe 
erfolgt im Standardformat. Es kann 
damit nach Belieben in eine Datei, auf 
einen Drucker oder auf den Bildschirm 
ausgegeben werden. 

Neben dem C-Compiler und dem 
Assembler enthält das Entwicklungs¬ 
system noch viele andere nützliche 
Programme. Sie umfassen folgende 
Funktionen und können nach Belieben 
vom Anwender erweitert werden: 

- editieren, formatieren, sortieren, 


zusammenfügen, listen, drucken, 
suchen, ersetzen, übersetzen, kopie¬ 
ren und aneinanderfügen, verschlüs¬ 
seln und entschlüsseln, Leerzeichen 
durch Tabs ersetzen, Tabs durch Leer¬ 
zeichen ersetzen, Zeichen, Wörter und 
Zeilen zählen, Druckerzeichensatz aus¬ 
wählen. 

Tabelle 2 listet alle vorhandenen Pro¬ 
gramme auf. Die Dienstprogramme 
(insgesamt 15) werden nur als Quellda¬ 
tei geliefert. Sie müssen also erst mit 
Small-C übersetzt und dann assem- 
bliert und zusammengefügt werden. 

Außer den Quellen der Programme 
befinden sich noch verschiedene 
Include-Dateien auf den insgesamt drei 
Disketten, die man beim Kauf bekommt. 
Alles in allem beläuft sich die Anzahl der 
Programme auf den Disketten auf zirka 
100 Dateien. Das deutsche Handbuch 
ist mit 200 Seiten sehr umfangreich 
und geht auf alle Programme sehr aus¬ 
führlich ein. Die umfassenden Kom¬ 
mentare bewahren auch den Anfänger 
vor großen Problemen. 

Das Entwicklungssystem Small-C 
bietet, trotz des eingeschränkten 
Sprachumfangs und seiner durch das 
Betriebssystem CP/M bedingten langsa¬ 
men Diskettenverarbeitung, ein sehr 
gutes Preis/Leistungsverhältnis. Es 
gewährt vor allem dem C-Einsteiger hilf¬ 
reiche Unterstützung beim Program¬ 
mieren beziehungsweise beim Erlernen 
von C. Das Small-C wird zusammen mit 
C-Quellcode, Editor, Assembler, Linker 
und Tools zur Textverarbeitung für den 
C128 und 128 D, den Schneider CPC 
464/664/6128 und den Joyce zum 
Preis von 148 Mark von Markt &Technik 
angeboten. Besitzer des CPC 464/ 
664 benötigen allerdings noch eine 
Speichererweiterung. 


(Günter Langheinrich/cg) 


Forth — die etwas andere 
Programmiersprache 


Wenn man Forth lernen möchte, 
braucht man dazu zweierlei: ein 
Forth-System und ein Buch zum 
Lernen. Der folgende Artikel soll 
Ihnen den Einstieg in Forth 
lediglich erleichtern; wir sagen 
Ihnen, welche Literatur geeignet 
ist und worauf Sie bei einem 
Forth-Compiler für Ihr Compu* 
tersystem achten müssen. 


S icher haben Sie schon den einen 
oder anderen Artikel über Förth 
gelesen. Dort war häufig die 
Rede von der »umgekehrt polnischen 
Notation«, vom Stackkonzept und von 
Worten wie SWAP, DUP und ROT, die 
dem Uneingeweihten allenfalls ein 
Stirnrunzeln entlocken. Über das 
Wesen der Sprache sagen sie aber 
nichts aus. Warum sich Förth in letzter 
Zeit dennoch zum »Geheimtip« unter 
Programmierern entwickelte, hat 


andere Gründe. Förth ist sicher nicht die 
»eierlegende Wollmilchsau«, wie dies 
von manch anderen Programmierspra¬ 
chen behauptet wird, bietet aber einige 
Vorteile, die eine genauere Betrachtung 
rechtfertigen. Eine Warnung vorweg: 
Förth ist in vieler Hinsicht ungewöhnlich 
und sicher nicht jedermanns Sache. 
Wenn Sie Angst vor den Innereien Ihres 
Computers oder Systemabstürzen 
haben, dann ist Förth nichts für Sie. 
Arbeiten Sie jedoch gern maschinen- 















nah, um die letzten Feinheiten aus 
Ihrem Computer herauszuholen, und 
können Sie mit Bits und Bytes etwas 
umgehen, dann lesen Sie weiter. 

Allen höheren Programmiersprachen 
ist eins gemeinsam. Damit der Prozes¬ 
sor, das Herzstück eines jeden Compu¬ 
ters, versteht, was der Programmierer 
will, muß der Programmtext übersetzt 
werden. Letztlich kann der Computer 
immer nur seinen Maschinencode ver¬ 
stehen. 

Programmiersprachen lassen sich in 
zwei Kategorien einteilen. Da sind auf 
der einen Seite die Interpretersprachen 
wie Basic, Logo und Comal. Bei diesen 
Sprachen wird ein Programm während 
der Ausführung übersetzt (interpre¬ 
tiert). Dieses Verfahren hat den Vorteil 
der Interaktion, das heißt, man kann die 
Wirkung eines Befehls oder einer 
Befehlsfolge sofort sehen. Programme 
entwickeln geht also verhältnismäßig 
schnell, und auch die unvermeidliche 
Fehlersuche ist kein Problem. Man läßt 
einfach sein Programm Schritt für 
Schritt ablaufen, um zu sehen, wann 
und wo der Fehler auftritt. Nachteil die¬ 
ser Methode ist jedoch die geringe 
Ablaufgeschwindigkeit der Programme. 
Schließlich beschäftigt sich der Com¬ 
puter den größten Teil seiner Rechen¬ 
zeit mit der Übersetzung und nicht mit 
der Bearbeitung des eigentlichen Pro¬ 
gramms. Jeder, der einmal ein längeres 
Basic-Programm mit einem entspre¬ 
chenden Programm in Maschinencode 
verglichen hat, wird dies bestätigen. 

Aus diesem Grund schlägt man bei 
den Compilersprachen wie Pascal, C 
oder Modula einen anderen Weg ein. 
Der Programmtext wird ein einziges Mal 
in Maschinencode übersetzt (compi- 
liert) und kann dann immer wieder aus¬ 
geführt werden. Das klingt gut, hat aber 
natürlich ebenfalls seine Tücken. So ist 
es ein langer Weg vom Quelltext bis 
zum lauffähigen Programm. Typisch für 
solche Sprachen ist der Dreischritt Edi¬ 
tor, Compiler, Linker, der sich immer 
wiederholt und viel Zeit kostet. Ein Pro¬ 
grammfehler wird ja fast immer erst 
ganz am Schluß erkannt, wenn der 
Computer sang- und klanglos abstürzt. 

Förth verbindet die Vorteile von 
Interpreter- und Compilersprachen, 
also hohe Ablaufgeschwindigkeit und 
interaktive Programmentwicklung. In 
Förth können Sie die Wirkung jedes 
Befehls wie in Basic unmittelbar über¬ 
prüfen, die Programme laufen jedoch 
zirka zehnmal schneller ab. 

Zudem steht es offen, zeitkritische 
Programmteile mit dem fast immer vor¬ 
handenen Assembler unmittelbar in 
Maschinencode zu schreiben. Solche 
Routinen sind in der Regel sehr kurz. 
Der Förth-Interpreter/Compiler behan¬ 
delt sie aber genauso wie alle anderen 


Förth-Befehle auch; Sie stoßen also auf 
keine SYS- oder CALL-Sequenzen mit 
irgendwelchen unverständlichen Zah¬ 
len dahinter. 

Förth ist vollkommen strukturiert. Ein 
Programm besteht aus einer Reihe von 
Befehlen, in Förth Wörter genannt, die 
jeweils einzeln entwickelt und getestet 
werden. Jeder so neu erzeugte Befehl 
wird durch seine Definition dem 
Sprachkern hinzugefügt und steht 
damit zur Bildung weiterer Wörter 
bereit. Für Verknüpfungen stehen die 
von Pascal bekannten Kontrollstruktu¬ 
ren wie IF..ELSE..THEN, BEGIN..WHILE 
..REPEAT, DO..LOOP und so weiter zur 
Verfügung. GOTO und GOSUB fehlen 
ebenso wie Zeilennummern. Die Wörter 
werden einfach durch Nennung ihres - 
hoffentlich sinnvollen - Namens aufge¬ 
rufen. Das Ergebnis ist ein übersichtli¬ 
cher, wartungsfreundlicher Code. Das 
lernt man spätestens dann zu schätzen, 
wenn man sich nach einigen Wochen 
oder Monaten ein Programm zur Über¬ 
arbeitung wieder vornimmt. Haben Sie 
das einmal mit einem schlecht doku¬ 
mentierten Assemblerprogramm ver¬ 
sucht, wissen Sie das zu schätzen. 


ln der Kürze 
liegt die Würze 


Förth macht nahezu alles möglich, 
insbesondere den Zugriff auf die 
gesamte Hardware. Viele Sprachen 
schieben da einen Riegel vor, entschei¬ 
den für den Programmierer, was erlaubt 
ist und was nicht. Förth ist hier genauso 
wie Assembler und bietet übrigens 
auch die gleichen Fehlerquellen. So 
sind Ein-Ausgabe-Bausteine unter 
Forth ebenso leicht zu programmieren, 
wie man sich eigene Speicherverwal¬ 
tungen abseits von gewöhnlichen 
Variablen oder Arrays zusammenbauen 
kann. Ja, sogar der Förth-Compiler ist 
offen für Veränderungen. Dieser unein¬ 
geschränkte Zugang verlangt natürlich 
viel Disziplin beim Programmieren. 
Allerdings: Mehr als abstürzen kann Ihr 
Computer auch unter Förth nicht. 

Förth-Programme sind kurz, in der 
Regel sogar kürzer als entsprechende 
Assembler-Programme. Das liegt an der 
Arbeitsweise des Förth-Compilers. Im 
Speicher steht bei jedem Wort nur eine 
Liste mit Adressen der Worte, aus 
denen es sich zusammensetzt. Der 
innerste Kern des Förth-Interpreters - 
übrigens eine Maschinencodesequenz 
von zirka 10 Byte - sorgt für die Abar¬ 
beitung dieser Liste. Das ist die Grund¬ 
idee. Natürlich gibt es eine Reihe von 
Feinheiten. So kommt es, daß »nor¬ 
male« Förth-Systeme mit 300 bis 400 
Befehlen Grundwortschatz nur zirka 10 
bis 20 KByte Speicher benötigen. 


Nachdem wir Ihnen nun den Mund 
hoffentlich ausreichend wäßrig 
gemacht haben, wenden wir uns wie¬ 
der der eingangs gestellten Frage zu. 
Neben einem Computer braucht man, 
so hieß es dort, ein Förth-System und 
Literatur. Die Frage nach der Literatur 
läßt sich verhältnismäßig leicht beant¬ 
worten. Es gibt ein für Anfänger wie 
Fortgeschrittene gleichermaßen geeig¬ 
netes Buch. Es heißt »Starting Förth« 
von Leo Brodie. Eine deutsche Über¬ 
setzung ist unter dem Namen »Pro¬ 
grammieren in Förth« im Hanser-Verlag 
erschienen. Das Buch entwickelte sich 
zu so etwas wie einem Standardwerk, 
weil es locker und doch exakt geschrie¬ 
ben ist. Wer gut Englisch kann, dem sei 
auf jeden Fall die Originalausgabe emp¬ 
fohlen, weil sich in der deutschen Über¬ 
setzung, vor allem bei den Programm¬ 
beispielen, einige Fehler eingeschli¬ 
chen haben. Man sollte es allerdings 
nicht abends im Bett kurz vor dem Ein¬ 
schlafen lesen, sondern neben den 
Computer legen und damit arbeiten. 
Auch Forth lernt man, indem man in 
Förth programmiert und nicht beim 
Lesen. 

Womit wir bei der Frage eines Forth- 
Systems wären. Hier läßt sich natürlich 
keine allgemeingültige Lösung ange¬ 
ben, da es für jeden Computer ver¬ 
schiedene Versionen gibt. Vor einiger 
Zeit veröffentlichte die Zeitschrift 
»Förth-Dimensions« (von der amerikani¬ 
schen »Förth Interest Group« herausge¬ 
geben), eine Art Checkliste für Förth- 
Systeme. Wir bringen zu Ihrer Orientie¬ 
rung eine deutsche Übersetzung, damit 
Sie wissen, worauf man achten sollte. 
Maximal sind dreizehn Punkte zu verge¬ 
ben. Systeme mit weniger als sieben 
Punkten dürften Ihnen die Arbeit mehr 
erschweren als erleichtern, von ihnen 
sollten Sie lieber die Finger lassen. 

Die Größe eines Systems entschei¬ 
det über den Umfang, also die Anzahl 
der Befehle, die im Grundwortschatz 
enthalten sind. Sicher ist die reine 
Länge in KByte kein ausreichendes 
Merkmal, wichtiger ist die Befehlsan¬ 
zahl. Sie gibt aber doch einigen Auf¬ 
schluß, ob es sich um eine reine Stan¬ 
dardimplementation handelt, die mit 
zirka 10 KByte auskommt, oder ob 
etwas Komfort geboten wird. Auch läßt 
sich aus der Länge in etwa beurteilen, 
wie viele der Grundworte in Maschinen¬ 
code geschrieben sind. Zwar etwas län¬ 
ger, wirken sie sich aber positiv auf die 
Laufzeit des Systems aus. Trotzdem: 
Seien Sie vorsichtig, wenn Ihnen 
Systeme mit 30 KByte und mehr Länge 
angeboten werden. Diese enthalten 
normalerweise viel überflüssigen Bal¬ 
last. 

Viel wichtiger ist dagegen der näch¬ 
ste Punkt. Viele Systeme enthalten 






Zusätze in Form von Quelltexten. Das 
hat zwei Vorteile. Zum einen muß man 
nur die wirklich benötigten Teile laden, 
zum anderen kann man die Quelltexte 
seinen Wünschen anpassen und verän¬ 
dern. Nebenbei bemerkt lernt man 
bekanntlich aus Beispielen am besten: 
Wem solche Beispiele gleich mitgelie¬ 
fert werden, der hat es einfacher. 
Zusätze enthalten Programmierhilfen 
wie Decompiler, Einzelschrittracer, 
Assembler und so weiter oder auch fer¬ 
tige Programme. 

Wie steigt man ein? 

Die nächsten beiden Punkte bezie¬ 
hen sich auf den Editor. Wir halten dies 
für eins der wichtigsten Hilfsmittel jeder 
Programmiersprache. Schließlich arbei¬ 
ten Sie beim Programmieren fast aus¬ 
schließlich mit dem Editor. Sein Komfort 
entscheidet über die Bedienbarkeit 
eines Systems. Entspricht der Editor 
dem in Starting Förth beschriebenen, 
hat das den Vorteil, daß Sie die Bei¬ 
spiele aus dem Buch leichter bearbei¬ 
ten können. Ein guter Editor sollte bild¬ 
schirmorientiert arbeiten, das heißt, 
man kann mit dem Cursor auf dem Bild¬ 
schirm »umherwandern« und Änderun¬ 
gen sofort sehen. Der Starting-Förth- 
Editor verfügt über diese Eigenschaf¬ 
ten von Haus aus nicht, es gibt aber ent¬ 
sprechend erweiterte Versionen. Ein 
zeilenorientierter Editor ist nur zu emp¬ 
fehlen, wenn man noch nie mit etwas 
anderem gearbeitet hat. 

Zu den nächsten beiden Punkten: All¬ 
jährlich treffen sich Förth-Program¬ 
mierer, die diese Sprache professionell 
nutzen, in Amerika, um über Verände¬ 
rungen oder Erweiterungen des Förth- 
Sprachkerns zu beraten. Dabei werden 
die Erfahrungen, die sich aus der prakti¬ 
schen Arbeit mit Förth ergaben, aufge¬ 
arbeitet und gleichzeitig neue Ansätze 
diskutiert. Wenn Einigkeit über eine not¬ 
wendige Änderung herrscht, wird ein 
neuer Standard festgelegt. Der letzte 
Standard wurde 1983 beschlossen. 
Davor gab es einen im Jahr 1979. Zwar 
erscheinen die Änderungen - vor allem 
dem Anfänger - häufig spitzfindig. Sie 
sorgen jedoch für eine stetige Weiter¬ 
entwicklung der Sprache und verhin¬ 
dern das Auseinanderfallen in verschie¬ 
dene Dialekte, wie es zum Beispiel bei 
Basic geschehen ist. Ein Programm, 
das nur Standard-Definitionen enthält, 
hat den unschätzbaren Vorteil, daß es 
unabhängig vom verwendeten Compu¬ 
ter läuft. So lassen sich Programme für 
die verschiedensten Computer unter¬ 
einander austauschen, jeder kann von 
Erfahrungen anderer profitieren. Die 
folgenden Punkte beziehen sich auf die 
Beschreibung und Unterstützung Ihres 
Systems. Eine Beschreibung ist uner¬ 


läßlich, denn jedes Förth-System ver¬ 
fügt über eine Reihe von systemspezifi¬ 
schen Erweiterungen. Der Standard 
legt nur zirka 150 Worte fest, ein übli¬ 
ches Förth-System enthält aber 300 bis 
400 Worte. Darüber hinaus sind häufig 
Besonderheiten und Zusätze einge¬ 
baut, die man natürlich nur mit einer ver¬ 
nünftigen Beschreibung ausnutzen 
kann. Diese sollte auch Informationen 
darüber enthalten, wie der Compiler 
arbeitet, welchen Speicher das System 
benutzt und so weiter. Je mehr Sie über 
Ihr Förth-System wissen, desto besser, 
auch wenn Sie mit den Informationen 
zunächst nicht viel anfangen können. 
Von einem guten Händler können Sie 
auch erwarten, daß er auf Ihre Fragen 
und Probleme eingeht. 

Die letzten Punkte der FIG-Check- 
liste behandeln spezielle Erweiterun¬ 
gen. Ein Assembler sollte zur Grund¬ 
ausstattung jedes Systems gehören; 
ein Fließkommapaket wird man dage¬ 
gen nur selten brauchen. Förth arbeitet 
aus Geschwindigkeitsgründen fast 
ausschließlich mit Integerarithmetik. 
Sogar trigonometrische Funktionen, 
wie man sie für grafische Anwendun¬ 
gen häufig braucht, lassen sich ohne 
Fließkomma programmieren. Zugriff auf 
ein File-System sollte möglich sein, weil 
es sonst schwierig wird, von Förth aus 
auf Files einer Textverarbeitung oder 
einer Tabellenkalkulation zuzugreifen. 
Förth selbst arbeitet normalerweise 
direkt auf Diskette, mit physikalischem 
Zugriff ohne File-System. 

Wo bekommt man 
ein Forth-System? 

Die verschiedensten Firmen bieten 
Förth an, zum Teil zu horrenden Preisen. 
Dabei muß der Preis kein Qualitäts¬ 
merkmal sein, im Gegenteil: Einige der 
besten Forth-Compiler sahen ihre Auto¬ 
ren als »public domain« (also der Allge¬ 
meinheit kostenlos zugänglich), was 
manche Vertreiber nicht davon abhält, 
sich die Anpassung auf ein spezielles 
Computersystem teuer bezahlen zu las¬ 
sen. Den geringen Umsatz versucht 
man dann über hohe Preise auszuglei¬ 
chen. 

Es gibt in Deutschland einen »Ab¬ 
leger« der »Förth Interest Group«, die 
»Förth Gesellschaft e.V.« in Hamburg. 
Sie setzt sich als Aufgabe die Verbrei¬ 
tung der Programmiersprache Förth. 
Die Gruppe arbeitet nicht kommerziell, 
sondern finanziert sich aus Beiträgen 
und Spenden. Dort kann man sich über 
Förth-Systeme für die verschiedenen 
Computer informieren, auch werden 
Bezugsquellen genannt. Es existiert 
auch eine Sammlung der verschieden¬ 
sten Artikel über Förth, die man sich 


gegen Unkostenerstattung kopieren 
lassen kann. Für Mitglieder erscheint 
eine Zeitung namens »Vierte Dimen¬ 
sion«, die zweimonatlich erscheint. Wer 
sich an die Förth-Gesellschaft wenden 
möchte, kann dies unter folgender 
Adresse tun: 

Förth-Gesellschaft e.V. 

Schanzenstr. 27 

2000 Hamburg 6 

Zum Abschluß noch ein Bonbon: Für 
den Commodore 64 und den Atari ST 
gibt es das »volksFORTH-83«, ein 
Förth-System, das von Mitgliedern der 
Förth-Gesellschaft geschrieben wurde 
und ebenfalls »public domain« ist. Es 
handelt sich um eins der besten Förth- 
Systeme, die es gegenwärtig gibt: Es 
entspricht vollständig dem 83’er- 
Standard, enthält Fullscreen-Editor, 
Assembler und eine Fülle von Tools, 
angefangen vom Decompiler bis hin zu 
einem Grafik-Paket. Das System ist 
multi-tasking-fähig, das heißt mehrere 
Programme können gleichzeitig ablau¬ 
fen. Der Quelltext ist einschließlich des 
System-Quelltextes verfügbar und das 
System frei kopierbar. Die Weitergabe 
ist sogar ausdrücklich erwünscht. Wen 
es interessiert, kann es auch bei der 
Forth-Gesellschaft zu einem Selbstko¬ 
stenpreis von 45 bis 65 Mark kaufen; 
man erhält dann - je nach Computersy¬ 
stem - mehrere Disketten mit sämtli¬ 
chen Quelltexten sowie ein 200-sei- 
tiges Handbuch. Derzeit sind Versionen 
für Z80-, 8080- und 8068-Prozesso- 
ren in Arbeit. Nach der FIG-Checkliste 
erhält »volksFörth-83« 12 von 13 mögli¬ 
chen Punkten. 

Ebenfalls erwähnen wollen wir das 
F83 von Henry Laxen und Michael 
Perry. Auch hierbei handelt es sich um 
ein »public domain«-System nach dem 
83’er-Standard. Es sind auch sämtliche 
Quelltexte zum System und allen Erwei¬ 
terungen zu erhalten. F83 gibt es für 
8080-, 8086- und 68000-Prozesso- 
ren. Bei der Forth-Gesellschaft erhalten 
Sie auf jeden Fall eine Version für den 
IBM-PC und kompatible Rechner. Zum 
F83 liegt keine Dokumentation vor. 
Statt dessen enthält die Version für 
jeden Quelltext Kommentarscreens. 
Auch dieses System erhält laut Checkli¬ 
ste 12 Punkte. 

Es steht nun nichts mehr im Wege, 
eigene Erfahrungen zu sammeln. 
Beschaffen Sie sich Starting Förth und 
ein Förth-System, und setzen Sie sich 
eine Woche oder sagen wir bis zum 
dreißigsten Systemabsturz an Ihren 
Computer. Entweder werfen Sie dann, 
dem Wahnsinn nahe, alles in die Ecke, 
oder aber die Faszination dieser Spra¬ 
che hat Sie gepackt und läßt Sie so 
schnell nicht mehr los. 

(Dietrich Weineck/hg) 






Der Einstieg in Pascal 


PROGRAM SUMME (INPUT, OUTPUT); 

(* DAS ERSTE PASCALPROGRAMM ZUR UEBUNG 
CONST ANZAHL - 4; 

SUMME,X : REAL; 

I : INTEGER; 

BEGIN 

WRITELN< • Geben Sie bitte 
SUMME: * 0. 0; 

FOR I: - 1 TO ANZAHL DO 
BEGI N 

READ( X) ; 

END; 

WRITELN; 

WRI TELN( ■ Die 
WRITELNC•Der 
END. 


ANZAHL,' Zahlen ein!'); 


SUMME: = SUMME ♦ X 


Summe betraegt ' , SUMME); 
Durchschnitt ist ', SUMME / ANZAHL) 


Listing 1. 
Dieses Pascal-Programm 
berechnet Summe 
und Querschnitt 


Sie wollten schon immer wissen, 
was es mit der vielgerühmten 
strukturierten Programmierung 
in Pascal auf sich hat? Oder 
besitzen Sie gar einen Pascal- 
Compiler für Ihren Computer? 
Dann nehmen Sie sich ein wenig 
Zeit, und studieren Sie folgen¬ 
den Artikel. 

Z ur Eingabe eines Pascal-Pro¬ 
grammes, zur Übersetzung und 
zur Fehlerkorrektur müssen Sie 
spezielle Hilfsprogramme benutzen, 
deren Bedienung natürlich an dieser 
Stelle nicht beschrieben werden kann. 
In diesen Fällen hilft ein Blick in die 
Handbücher, die mit jedem Compiler 
geliefert werden. 

Die grundlegenden Eigenschaften 
der Spache Pascal lassen sich am ein¬ 
fachsten an einem konkreten Beispiel¬ 
programm erläutern (Listing 1). Am 
besten lesen Sie zunächst einmal den 
gesamten Programmtext durch. Über¬ 
legen Sie sich für jede Zeile, welche 
Bedeutung die Anweisungen haben 
könnten. Auch ohne Kenntnisse in Pas¬ 
cal werden Sie erkennen, daß dieses 
Programm vom Benutzer die Eingabe 
einer Folge von Zahlen erwartet, über 
die eine Summe gebildet und gedruckt 
wird. 

Auf den ersten Blick fällt bereits die 
stufenförmige Einrückung der Zeilen 
auf. Sie ist jedoch neben den Kommen¬ 
taren zwischen »(*« und »*)« das ein¬ 
zige an einem Pascal-Programm, das 
keinerlei Bedeutung bei der Überset¬ 
zung des Programms besitzt. Genauer 
gesagt, betrachtet der Compiler ein 
Pascal-Programm als eine lange Folge 
von Symbolen (Sonderzeichen und Na¬ 
men), die beliebig durch Leerzeichen 
oder Zeilenenden getrennt sein kön¬ 
nen. Im Prinzip könnte man also ein 
Pascal-Programm als einen riesigen 
Bandwurmsatz in eine einzige Zeile 
schreiben. Andererseits sind die Ein¬ 
rückungen, Leerzeilen und Kommen¬ 
tare die einzige Orientierungshilfe für 
den menschlichen Leser, um die teil¬ 
weise komplex geschachtelten Schlei¬ 
fen und Abfragen in einem Programm 
auf einen Blick zu erkennen, so daß 
man einen »guten« Programmierstil 
bereits am systematischen Layout 
erkennt. 

Es folgt also, daß man sich bei der 
Programmierung nicht auf eine »logi¬ 
sche« Einrückung des Textes verlassen 
darf, sondern vielmehr durch die Ver- 


PROGRAM Name (INPUT, OUTPUT); 

CONST Konstantendeklarationen 
VAR Variablendeklarationen 
PROCEDURE / FUNCTION Unterprogramm 
deklarationen 
BEGIN 

Anweisung; Anweisung; ... 

END. 

Bild 1. Der prinzipielle Aufbau eines 
Pascal-Programmes 


wendung von Sonderzeichen und Inter¬ 
punktionszeichen (Semikolon, Punkt, 
Komma) die Interpretation des Pro¬ 
grammes steuern muß. 

Neben den Sonderzeichen besteht 
ein Programm aus Wörtern. Dabei 
unterscheidet man zwischen reservier¬ 
ten Schlüsselwörtern (Wortsymbolen) 
und frei wählbaren Namen. Schlüssel¬ 
wörter haben eine feste syntaktische 
Bedeutung und können nicht als 
Namen zum Beispiel für Variablen (wie 
SUMME) verwendet werden. Tabelle 1 
zeigt die kurze Liste der reservierten 
Schlüsselwörter in Pascal. In den fol¬ 
genden Artikeln werden Sie die Bedeu¬ 
tung der meisten dieser Wörter kennen¬ 
lernen. 

Namen in Pascal bestehen aus einem 
Buchstaben, dem eine beliebige Reihe 
von Buchstaben oder Zahlen folgt. 
Jeder Pascal-Compiler berücksichtigt 
mindestens die ersten acht Zeichen 
eines Namens, so daß Sie Namen nicht 
wie in Basic auf zwei Zeichen Länge 
verstümmeln müssen. Da in Pascal 
nicht nur Variable, sondern auch Unter¬ 
programme, Konstanten und Typen mit 
Namen versehen werden, sollte man 
bei der Namensgebung möglichst 
systematisch Vorgehen, um aus diesen 
Namen auf die Bedeutung schließen zu 
können. 

Beispiele für sinnvolle und erlaubte 
Namen sind: ANFANGSBUCHSTABE, 
ENDEZEICHEN, GRENZE, FEHLER. 

Nachdem Sie jetzt einen Überblick 
über die Einzelteile (Symbole) eines 


AND 

FILE 

NOT 

TO 

ARRAY 

FOR 

OF 

TYPE 

BEGIN 

FORWARD 

OR 

UNTIL 

CASE 

FUNCTION 

PACKED 

VAR 

CONST 

GOTO 

PROCEDURE 

WHILE 

DI V 

IF 

PROGRAM 

WITH 

DO 

IN 

RECORD 


DOWNTO 

LABEL 

REPEAT 


ELSE 

MOD 

SET 


END 

NIL 

THEN 



Tabelle 1. Reservierte Wörter In 
Pascal 


Pascal-Programms besitzen, wenden 
wir uns nun dem Zusammenbau dieser 
Elemente zu einem vollständigen Pro¬ 
gramm zu. Jedes Programm hat die in 
Bild 1 gezeigte Struktur: 

- Programmkopf 

- Deklarationen 

- BEGIN 

- Anweisungen 

- END 

Im Rahmen dieses Artikels besteht 
jeder Programmkopf aus dem Schlüs¬ 
selwort PROGRAM, einem Namen und 
der Parameterliste (INPUT,OUTPUT). 
Die Namen INPUT und OUTPUT zeigen 
an, daß im Programm Eingaben von der 
Tastatur und Ausgaben an den Bild¬ 
schirm Vorkommen können. 

Der nachfolgende Deklarationsteil 
definiert alle Namen, die im Programm 
verwendet werden. Grundsätzlich gilt in 
Pascal die Regel, daß die Definition 
eines Namens im Programm-Text vor 
der Anwendung des Namens in einer 
anderen Definition oder in einer Anwei¬ 
sung stehen muß. Dadurch können 
Pascal-Programme in einem einzigen 
Durchlauf (one pass) compiliert wer¬ 
den, da vor jeder Anwendung eines 
Namens der Compiler alle Informatio¬ 
nen über einen Namen bereits gelesen 
hat. 

In dem Beispielprogramm in Listing 1 
wird zum Beispiel eine Konstante AN¬ 
ZAHL mit der Deklaration 

CONST ANZAHL = 4 

definiert. Immer wenn im nachfolgen¬ 
den Programm-Text der Name ANZAHL 
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auftritt, wird die Konstante 4 compiliert. 
Außerdem würde der Compiler eine 
Zuweisung an diese Konstante, bei¬ 
spielsweise mit »ANZAHL := 39«, als 
Fehler erkennen. Dies ist einer der vie¬ 
len Vorteile der expliziten Deklaration 
von Namen: Der Compiler schützt den 
Programmierer vor der falschen oder 
doppelten Verwendung eines Namens. 
Wer sich schon einmal durch ein größe¬ 
res fremdes Programm gekämpft hat, 
wird auch wissen, daß die Abfrage 
IF ANZAHL=MAXIMALANZAHL THEN... 
verständlicher ist als 
IF A=49 THEN... 

Nicht zuletzt erlaubt die Verwendung 
von Konstanten eine einfache Ände¬ 
rung bestehender Programme. Soll das 
Programm in Listing 1 später einmal 
acht Zahlen summieren, so genügt die 
einmalige Änderung der Konstanten 
ANZAHL, wodurch sowohl die Ober¬ 
grenze der FOR-Schleife als auch die 
Division bei der Durchschnittsbildung 
angepaßt wird. 

Das Programm SUMME enthält noch 
eine weitere Form von Deklarationen: 
VAR SUMME, X: REAL; 

I : INTEGER; 

Hinter dem Schlüsselwort VAR wer¬ 
den alle Variablen des Programms mit 
ihrem Typ (zum Beispiel INTEGER) auf¬ 
geführt. Der Typ einer Variablen gibt an, 
welche Werte eine Variable annehmen 
darf (zum Beispiel Zahlen oder Zei¬ 
chen). Während in Basic der Typ einer 
Variablen aus dem Namen hervorgeht 
(A$, A%, A), wird in Pascal der Name 
eines Typs bei der Deklaration angege¬ 
ben. Zunächst wollen wir uns auf die 
vordefinierten Standard-Typen be¬ 
schränken: 

REAL: Dieser Typ umfaßt die reellen 
Zahlen (zum Beispiel +1.0, 0.0, -1.2, 
2.3E-4). 

INTEGER: Werte vom Typ INTEGER 
sind ganze Zahlen aus einem 


A 

B 

! A AND B 

! A OR B 

! NOT A | 

FALSE 

FALSE 

! FALSE 

! FALSE 

! TRUE I 

FALSE 

TRUE 

1 FALSE 

1 TRUE 

! TRUE ! 

TRUE 

FALSE 

1 FALSE 

1 TRUE 

1 FALSE | 

TRUE 

TRUE 

1 TRUE 

1 TRUE 

1 FALSE I 


Tabelle 2. Wahrheitstabelle der logischen Operatoren 


PROGRAM GESCHWINDIGKEITSTEST (INPUT, OUTPUT); 

CONST LETZTERDURCHLAUF ■ 10000; <* WIEDERHOLE SCHLEIFE SO OFT *) 

VAR XI : INTEGER; 

X2 : REAL; 

ZAEHLBR: INTEGER; 

BEGIN 

WRITELNl'INTEGBR-Schleife gestartet!•); 

XI; * 0; 

FOR ZAEHLER:- 1 TO LETZTERDURCHLAUF DO XI:- Xiei; 

WRITELNC • INTEGER-Schleife beendet! ' ) ; 

WRITELNl 1 REAL-Schleife gestartet! •); 

X2: - 0; 

FOR ZAEHLER; - 1 TO LETZTERDURCHLAUF DO X2: • X2e1; 

WRITELNl ' RE AL-Schl ei f e beendet! ' ) ; 

END. 

Listing 2. Ein Geschwindigkeitsvergleich zwischen REAL und INTEGER 

beschränkten Intervall. Typischerweise (A=B) OR (X=Y) 

sind dies die Zahlen zwischen-32768 RICHTIG := ERGEBNIS = LOESUNG 

bis 32767. FALSCH := NOT (RICHTIG) 

CHAR: Eine Variable vom Typ CHAR Die letzten beiden Zeilen verwenden 
kann ein einzelnes Zeichen, wie »A«, »!« zwei boolesche Variablen RICHTIG und 
oder »4« speichern. FALSCH, die mit 

BOOLEAN: Dieser Typ ist Ihnen VAR RICHTIG, FALSCH: BOOLEAN; 
sicherlich nicht ganz so vertraut wie die deklariert werden müssen. Diese Bei¬ 
übrigen Standard-Typen. Er umfaßt spiele machen auch den Unterschied 
nämlich nur die logischen Werte »wahr« zwischen dem Vergleichsoperator »=« 
(TRUE) und »falsch« (FALSE). So liefern und dem Zuweisungsoperator »:=« 
zum Beispiel Vergleiche ein Ergebnis deutlich. Mit »ERGEBNIS = LOE- 
vom Typ BOOLEAN. Mit booleschen SUNG« wird der Inhalt der Variablen 
Werten kann man über die logischen ERGEBNIS mit dem Inhalt der Variablen 

Operatoren UND, ODER und NICHT LOESUNG verglichen. Stimmen beide 
(AND, OR, NOT) »rechnen«, und die überein, so liefert der Vergleich das 
Ergebnisse in einer Variablen spei- Ergebnis TRUE. Um einer Variablen 
ehern: einen neuen Wert zuzuweisen, verwen- 

27=13 (FALSE) det man den Zuweisungsoperator»^«. 

12 >4 (TRUE) Typische Beispiele sind: 

’A'<'B' (TRUE) I:= 1+1 

'A'='a' (FALSE) ERGEBNIS:= SIN(X)+C0S(X) 

LOESUNG:= A*B - C*D + 23-0 



Zur Verdeutlichung der Wirkung der 
booleschen Operatoren enthält Tabelle 
2 eine sogenannte Wahrheitstabelle, 
die zum Beispiel angibt, daß falsch und 
wahr gleich falsch ist (FALSE AND 
TRUE = FALSE). 

Warum unterscheidet man aber zwi¬ 
schen den Typen REAL und INTEGER? 
Für einen Computer ist es wesentlich 
einfacher, mit ganzen Zahlen zu rech¬ 
nen oder zu zählen, als Fließkomma- 
Arithmetik mit reellen Zahlen durchzu¬ 
führen. Außerdem lassen sich Zahlen 
vom Typ INTEGER wesentlich kompak¬ 
ter als REAL-Zahlen speichern. Das 
bedeutet für die Praxis, daß man nur in 
Ausnahmefällen Variablen vom Typ 
REAL deklariert, und zwar nur dann, 
wenn sehr große Zahlen verarbeitet 
oder Nachkommastellen dargestellt 
werden müssen. Bei einer genaueren 
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PROGRAM ZUHEISUNGEN 

(INPUT, OUTPUT); 



VAR 

R: REAL; 







I: INTEGER; 

B: BOOLEAN; 

C: CHAR; 





BEGIN 






R 


3.141592653; 


( * 

PI ist eine reelle Zahl 

*) 

R 


SQR( SI N( R) ) ♦ 

SQR( C0S( R) ) ; 

( * 

-> R = 1.0 

*) 

I 


0; 





I 


1 + 1; 


( * 

vorwaerts zaehlen 

*) 

I 


1*1 + I - 7; 


( * 

Ergebnis ist ganze Zahl 

*) 

I 


13 DIV 4; 


( * 

Division mit Rest -> 1 = 3 

*) 

I 


13 MOD 4; 


( * 

Divisionsrest -> 1=1 

*) 

R 


ABS( R) ; 


( * 

Absolutwert vom Typ REAL 

*) 

I 


ABS<I); 


( * 

dsgl. vom Typ INTEGER 

*) 

CH: -* A’ ; 


( * 

nur einzelne Zeichen ! 

*) 

CH: = CHR( 65) ; 


( * 

CHR liefert das Zeichen 

*) 





( * 

mit dem Code 65, das ist 

*) 





( * 

der Buchstabe ’ A' 

*) 

I 

- 

0RD( ' A' ) ; 


( * 

ORD wirkt genau umgekehrt, 

*) 





( * 

also ist danach 1= 65 

*) 

B 

- 

( I < > 4) ; 


( * 

TRUE, falls IO 4 

*) 

B 

» 

B OR NOT B; 


( * 

Immer richtig (fRUE)f 

*) 

END. 








Listing 3. Mögliche Formen 

der Zuweisung in Pascal 



Untersuchung der meisten Programme 
wird man jedoch feststellen, daß die 
Mehrzahl der Variablen nur zum Zählen 
in Schleifen, als Indizes in Tabellen oder 
für ähnliche Steuerungsaufgaben be¬ 
nutzt werden, in denen INTEGER-Zah- 
len völlig ausreichen. Wer einen Com¬ 
puter zur Verfügung hat, sollte sich den 
erheblichen Geschwindigkeitsunter¬ 
schied zwischen Operationen mit gan¬ 
zen und reellen Zahlen am Beispielpro¬ 
gramm in Listing 2 verdeutlichen. 

Zum Abschluß dieses kleinen Exkur¬ 
ses über die Standard-Typen in Pascal 
soll noch ein weiterer Begriff geklärt 
werden, der Ihnen bei der Lektüre eines 
Pascal-Lehrbuches oder in Fehlermel¬ 
dungen des Compilers häufiger begeg¬ 
nen wird: Ein »skalarer Typ« ist ein Typ, 
dessen Werte einzeln aufzählbar sind 
und der nicht in einfachere Typen zer¬ 
legt werden kann. 

INTEGER, CHAR und BOOLEAN 
sind beispielsweise skalare Typen. 
Reelle Zahlen oder Mengen haben kei¬ 
nen skalaren Typ. Später werden 
Anwendungen genannt, in denen nur 
Werte eines skalaren Typs auftreten 
dürfen. An solchen Stellen sind also nur 
ganze Zahlen, nicht aber reelle Zahlen 
zu verwenden. 


Anweisungen und 
Blockstruktur 


Jetzt können wir uns dem Anwei¬ 
sungsteil eines Pascal-Programms 
zuwenden, der definiert, was mit den 
Objekten geschieht, die im Deklarations¬ 
teil vereinbart wurden. Bild 2 zeigt einen 
Überblick über alle Arten von Anwei¬ 
sungen, die nachfolgend beschrieben 
sind. 

Die Philosophie der sogenannten 

i 
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strukturierten Programmierung, die ja 
bekanntermaßen der Sprache Pascal 
zugrunde liegt, verbirgt sich in dem 
Zweig mit der Bezeichnung »Zusam¬ 
mengesetzte Anweisungen«. Jede 
zusammengesetzte Anweisung kann 
aus einer Vielzahl verschiedener (even¬ 
tuell ebenfalls zusammengesetzter) 
Anweisungen bestehen. Man kann sich 
eine Anweisung als einen Block vorstel¬ 
len, der einen Eingang und einen Aus¬ 
gang besitzt. Ist ein Block eine zusam¬ 
mengesetzte Anweisung, so enthält er 
kleinere Blöcke mit je einem Eingang 
und Ausgang, die nach festen Regeln 
geschachtelt werden. So kann jeder 
Block als eine Einheit betrachtet wer¬ 
den, ohne die umgebenden Böcke zu 
kennen. Das mag etwas abstrakt klin¬ 
gen, aber das Bild einer Blockstruktur 
ist zur Verdeutlichung der Schachtelun¬ 
gen recht anschaulich. 

Einfache Anweisungen: Dies sind 
die elementaren Bausteine, aus denen 
der Anweisungsteil besteht. Die wich¬ 


tigste Form der einfachen Anweisun¬ 
gen hatten wir bereits kennengelernt: 
Eine Zuweisung besteht aus dem 
Namen einer Variablen, dem Zuwei¬ 
sungsoperator »:=« und einem Aus¬ 
druck. Das Programm in Listing 3 zeigt 
Ihnen eine Vielzahl von Beispielen für 
Zuweisungen in Pascal. Sie werden 
feststellen, daß sich die Ausdrücke von 
ihren Gegenstücken in Basic oder Fort¬ 
ran nur unerheblich unterscheiden. Sie 
haben also nicht eine so extravagante 
Form wie in C oder gar in Förth. Natür¬ 
lich gilt auch in Pascal die Regel »Punkt- 
vor Strichrechnung«. 

Bitte achten Sie darauf, daß der Typ 
des Ausdruckes auf der rechten Seite 
des »:=« mit dem Typ der Variablen vor 
dem »:=« verträglich ist. Daß man einer 
Variablen vom Typ CHAR keine Zahl 
zuweisen kann, ist wohl selbstverständ¬ 
lich. Jedoch ist es auch nicht möglich, 
einer Variablen vom Typ INTEGER 
direkt eine reelle Zahl zuzuweisen. Man 
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EIN REFERENZBUCH für professionelle Hard/ 
A Software-Entwickler auf dem U S-Standard des 
Buchs PROGRAMMING THE PET/CBM des 
gleichen Autors; EIN LEHRBUCH zu Aufbau 
und Anwendung von Mikrocomputern am Beispiel 
des C-64 für alle Autodidakten und Einsteiger; 
un ANWENDUNGS-HANDBUCH zum C-64/SX-64 mit 
über 300 Programmierungen aller 64er-Funktionen - auch der 
schwierigen, seltenen und meist gemiedenen. 


te-wi Verlag GmbH 
Theo-Prosel-Weg 1 
8000 München 40 


ta-wi 


Beste Rezensionen in allen Zeitschriften. 

688 Seiten, Softcover, DM 66,- 


Weitere te-wi-Bücher 



NEU! C-64 Akustik und Graphik 

Ein planvoller Lehrgang - keine Beispiel¬ 
sammlung - in anschaulichem Stil - 
daher für jedes Alter. Dieses Werk eröff¬ 
net dem C-64 Benutzer die Welt der 
Graphiken und Klangbilder. Es enthält 
Programmbibliotheken und wird abge¬ 
rundet durch zahlreiche Anhänge. 

John Anderson, 208 Seiten, Softcover, 
DM 49,— 

NEU! 

Der Sensible C-64 
C-64 Programmsammlung 

Für Erstbenutzer wie für Experten - 
2 Bücher der Softwarenutzung aller 
technologischen Eigenheiten des C-64. 
Jedes Buch kostet DM 29,80 



NEU! Reparaturanleitung 
Computer: C-64 Floppy: VC1541 

Einzigartige Serviceunterlagen für Repara¬ 
turen und Entwicklungsarbeiten. 

Enthält Schaltpläfie, Bauteile- und Ver¬ 
gleichstypenliste, u.v.m; schnelle Service¬ 
tests; Anleitung zur systematischen Fehler¬ 
suche. 

In A4-Mappe, je DM 29,80 

STRUCTURED BASIC erweitert erheblich 
die Einsatzmöglichkeit des C-64/C-128 auf 
Befehls- wie Speicherebene! Buch (376 S.) 
und Modul, DM 199,- 
In Vorbereitung; 

Die C-128 Enzyklopädie vom Erfolgs¬ 
autor Raeto West. Ausgereift und in 
bewährter Solidität. Anfang 1986. Es lohnt 
sich zu warten. ROM-Listing C-128 mit 

umfangreichen deutschen Kommentaren 



LOGO- 

Jeder kann programmieren 

(Daniel Watt) 

Buch des Jahres in den USA. Für die 
Computer APPLE II, C-64, IBM PC, 
ATARI bis 520 ST, TI 99 und Schneider 
CPCs. 

Hochwertiges Textbuch für Logo-Kurse 
für zu Hause und im Lehrbereich. 

384 Seiten, A4, DM 59,- 



COMWTiR FM liW I Computer für Kinder 

J/fk , (Sally Greenwood Larson) 

' f jiL Ein Buch für Kinder und 

■1 ihre Lehrer - ein kind- 

* •»’. • gerechtes Buch für die erste 

Begegnung mit Computern, 
. rfeS ihren Eigenwilligkeiten und 
t-- . ^ ihren unerschöpflichen 

Möglichkeiten. 

„Computer für Kinder“ richtet sich an Kinder im Alter von 8 
bis 13 Jahren. Ein Handbuch für Beginner. Unterhaltsam 
und leicht verständlich für die Computer VC20 und C-64. 
A4 quer. Je Ausgabe DM 29,80 


Noch im Programm: VisiCalc (mit CBM Diskette) DM 79,— C-64 IEEE-488 Buch und Steckmodul DM 239,— 

CBM Computer-Handbuch DM 59,— Umweltdynamik (Prospekt anfordern) DM 59,— NEU 

Mikrocomputer-Grundwissen DM 36,— 6502 - Programmieren in Assembler DM 59,— 



























Operator 

Operation mit Beispiel 

Operandentypen 

Ergebnistyp 









+ (Vors.) 

Identitaet ♦ 3.4 (* 3.4) 

INTEGER, REAL 

wie Operand 



- (Vorz.) 

Vor 2 eichenwechse1 -3.4 (*-3.4) 

INTEGER, REAL 

wie Operand 



♦ 

' Addition 1 + 1 ( *2) 

INTEGER. REAL 

wie Operand 




Vereinigungsmenge 

Mengen 

Menge 




11,2.3,4) * 13,5) ( = 11,2,3,51) 





- 

Subtraktion 1 - 1 ( * 0) 

INTEGER. REAL 

wie Operand 




Di fferensmenge 

Mengen 

Menge 




11,2,3,4) - I 3, 5) (»11,2.41) 





* 

Multiplikation 1 * 1 (*1) 

INTEGER. REAL 

wie Operand 




Schm ttmenge 

Mengen 

Menge 




11,2.3,4) * f 3, 5) ( = [ 3) ) 





DI V 

Division mit Rest 7 DIV 3 (= 2) 

INTEGER 

INTEGER 



MOD 

Di Visionsrest 7 DIV 3 (=1) 

INTEGER 

INTEGER 



/ 

'normale' Division 1 / 4 (*0.25) 

INTEGER, REAL 

REAL (immer) 









S 

gleich ' A'■' a' 11,2,31*1) 

Skalar, Pointer 

BOOLEAN 




' Otto' * ' Anna (alle FALSE) 

Menge, String 




< > 

ungleich (analog) 

Skalar, Pointer 

BOOLEAN 



< 

kleiner ' A’ <’ B’ ( » TRUE) 

Skalar, String 

BOOLEAN 



> 

groesser ' Otto* >' Anna' ( -TRUE) 

Skalar, String 

BOOLEAN 



> * 

qroesser oder gleich 

Skalar, String 

BOOLEAN 




Test auf Obermenge [1,2,3)>*MJ 

Menge 

BOOLEAN 




(* TRUE) 





< * 

kleiner oder gleich 

Skalar, String 

BOOLEAN 




Test auf Teilmenge 

Menge 

BOOLEAN 




l 1 , 2, 3, 5) < * [ 1 . . 4) (-FALSE) 





IN 

Test auf Enthaltensein 

Skalar und 

BOOLEAN 




33 IN l1.. 40) (-TRUE) 

Menge 




NOT 

nicht NOT FALSE (-TRUE) 

BOOLEAN 

BOOLEAN 



AND 

und (I>J) AND (J>I) (-FALSE) 

BOOLEAN 

BOOLEAN 



OR 

oder ( A = B) OR ( A< > B) (-TRUE) 

BOOLEAN 

BOOLEAN 







Tabelle 4. Operatoren und Ihre Wirkungen 
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muß vielmehr angeben, was mit den 
eventuell vorhandenen Nachkomma¬ 
stellen geschieht. Hierzu dienen die 
Standardfunktionen TRUNC und 
ROUND, die Nachkommastellen einer 
reellen Zahl abschneiden oder zur 
nächsten ganzen Zahl aufrunden 
(Tabelle 3). 


X - ! TRUNCt X) ! 

ROUND( X) ! 

1.234 ! 1 . ! 

1 j 

1.765 i 1 ! 

2 ! 

-1.234 ! -1 ! 

-i ! 

-1.77 ! -1 ! 

-2 ! 

Tabelle 3. Die Wirkung von 

TRUNC und ROUND 


Wie bestimmt man aber den Typ eines 
Ausdrucks? Dazu stellt man zunächst 
die Typen der Konstanten und Variablen 
(aus dem Deklarationsteil) fest. Eine 
Zahl ohne Dezimalpunkt und Exponent 
ist vom Typ INTEGER: 

Beispiele: 

10-8 100000 
(Zahlen vom Typ INTEGER) 

1.2 1E-4 123.4 

(Zahlen vom Typ REAL) 

Wird eine reelle Zahl mit einer ganzen 
Zahl verknüpft, so erhält man als Ergeb¬ 
nis eine reelle Zahl. Indem man schritt¬ 
weise (unter Beachtung der Prioritäten 
und Klammern) den Ausdruck auflöst, 
entsteht der Ergebnistyp. 

Beispiele: 

A:= 1000 * (1000 + 4) 

B:= 1000 # (1000 + 4.0) 

Da der Wertebereich INTEGER meist 
nur Zahlen kleiner oder gleich 32768 
darstellen kann, würde bei der Ausfüh¬ 
rung der ersten Zuweisung ein Überlauf 
eintreten. Durch die Addition von 4.0 
(vom Typ REAL) ist jedoch im zweiten 
Fall das Ergebnis (B) vom Typ REAL und 
somit noch darstellbar. 

Tabelle 4 gibt einen Überlick über die 
möglichen Operatoren in Pascal mit 
konkreten Beispielen. Außergewöhn¬ 
lich ist nur die Tatsache, daß die logi¬ 
schen Operatoren AND und OR stärker 
binden als die Vergleichsoperatoren 
(>,<,=,<>). Diese Einheit muß bei 
der Formulierung von Bedingungen 
(zum Beispiel bei IF-Anweisungen) 
durch eine korrekte Klammerung 
beachtet werden: 

Beispiel: 

IF (A=B) 0R (C=D) THEN... 
und nicht 

IF A=B 0R C=D THEN... 

(Beim zweiten Ausdruck würde zu¬ 
nächst »B OR C« berechnet, das Ergeb¬ 
nis mit A verglichen, das Resultat (vom 
Typ BOOLEAN) schließlich mit D vergli¬ 
chen werden, was wohl nicht beabsich¬ 
tigt war.) 


Erwähnenswert ist die Tatsache, daß 
es in Standard-Pascal keinen Exponen- 
tialoperator (A hoch B) gibt. Der weiter¬ 
führende Artikel über Prozeduren und 
Funktionen beschreibt, wie man sich 
diesen Operator selbst definiert. 

Um die Ergebnisse von Berechnun¬ 
gen und die Inhalte von Variablen am 
Bildschirm darzustellen und auch um 
Eingaben des Benutzers von der Tasta¬ 
tur zu lesen, gibt es in Pascal einige vor¬ 
definierte Unterprogramme. Diese Pro¬ 
zeduren werden durch die Angabe 
ihres Namens, den »Prozeduraufruf« 
aktiviert. Das Programm aus Listing 1 
enthält bereits verschiedene Prozedur¬ 
aufrufe. Mit WRITELN (write line) wird 
zum Beispiel der Cursor am Bildschirm 
auf den Anfang der nächsten Zeile 
gesetzt. Oft muß man einer Prozedur 
weitere Informationen übergeben. 
Diese »Parameter« werden in Klammern 
und durch Kommata getrennt hinter 
dem Prozedurnamen aufgeführt: 

WRITE('SUMME = A+B+C); 

WRITE(' DM') 

Als Parameter für die Prozedur 
WRITE sind neben Textkonstanten 
(Strings in Hochkommata) alle Werte 
der Standard-Typen (REAL, INTEGER, 
CHAR und auch BOOLEAN) zugelas¬ 
sen. Gerade für Einsteiger bietet sich 
damit die Chance, während des Pro¬ 
grammablaufs Zwischenergebnisse 
oder Variablen ohne großen Aufwand 
anzuzeigen. Zwei aufeinanderfolgende 
WRITE-Anweisungen drucken ihre 
Werte ohne Zwischenraum direkt hin¬ 
tereinander. Möchte man nach der Aus¬ 
gabe einen Zeilenvorschub durchfüh¬ 
ren, so verwendet man WRITELN statt 


WRITE. Das Gegenstück zu WRITE und 
WRITELN sind die Prozeduren READ 
und READLN. Als Parameter an diese 
Prozeduren übergibt man Variablen, 
denen Werte zugewiesen sind, die von 
der Tastatur eingelesen werden. 
Betrachten wir folgendes Beispiel: 
READ(A,B,C,D) 

Dieser Prozeduraufruf liest vier Werte 
ein. Ob es sich dabei um ganzzahlige 
oder reelle Zahlen oder um Zeichen 
handelt, hängt von der Deklaration der 
Variablen A, B, C und D ab. Sind A, B, C 
und D Variablen vom Typ INTEGER, so 
kann der Benutzer folgende Eingaben 
machen: 

1234 [RETURN Taste] 

oder auch in mehreren Zeilen: 

1 2 [RETURN Taste] 

3 [RETURN Taste] 

4 [RETURN Taste] 

Mit »READLN (A); READLN(B); 
READLN(C); READLN(D)« wird nach 
dem Einlesen jedes Wertes der Rest 
der Eingabezeile ignoriert, so daß die 
vier Werte in vier Zeilen eingegeben 
werden müssen. 

Später werden Sie sehen, wie man 
eigene Prozeduren und Funktionen in 
Pascal definiert, denen man wie den 
Standard-Funktionen Parameter über¬ 
geben kann, oder die Ergebnisse 
zurückliefern. Solche benutzerdefinier¬ 
ten Prozeduren entsprechen also im 
Prinzip den Unterprogrammen (Stich¬ 
wort GOSUB, RETURN) in Basic. 

Jetzt sind alle einfachen Anweisun¬ 
gen bekannt, so daß wir mit der Bespre¬ 
chung der zusammengesetzten Anwei¬ 
sungen fortfahren können. 

























BEGIN (* TAUSCHE A <-> B *) 

H: = A; 

A: - B; 

B: * H 
END 

Listing 4. Ein Beispiel für einen ab¬ 
geschlossenen Anweisungsblock 


Eine »Anweisungsfolge« faßt eine 
Reihe von Anweisungen zu einer einzi¬ 
gen Anweisung zusammen. Listing 4 
zeigt als Beispiel für die allgemeine 
Struktur einer Anweisungsfolge ein kur¬ 
zes Programmstück, in dem der Inhalt 
der Variablen A und B vertauscht wird. 
Dieses Diagramm soll zeigen, wie die 
kleinen Blöcke (Anweisungen) zu 
einem großen Block (der zusammenge¬ 
setzten Anweisung) zusammengefaßt 
werden. Bitte beachten Sie, daß Semi¬ 
kola zwischen den Anweisungen ste¬ 
hen und nicht hinter jeder Anweisung. 
Daher muß vor dem abschließenden 
END kein Semikolon stehen. Jedoch ist 
es erlaubt, überflüssige Zeichen in eine 
Anweisungsfolge einzufügen, so daß 
folgende Anweisungsfolgen ebenfalls 
syntaktisch korrekt sind. 

BEGIN H:=A; A:=B; B:=H; END 
und 

BEGIN ;H:=A;; A:=B; B:=H END 

Der Anweisungsteil eines Pascal- 
Programms ist also syntaktisch gese¬ 
hen eine Anweisungsfolge. Da die 
Anweisungen in einer Anweisungsfolge 
immer in derselben Reihenfolge abge¬ 
arbeitet werden, benötigt man zur 
bedingten Ausführung von Befehlen 
eine zusätzliche zusammengesetzte 
Anweisung. 


Bedingungen 
auswerten mit IF 


In Pascal gibt es zwei Formen der »IF- 
Anweisung«, die in Listing 5 und Listing 
6 dargestellt sind. Die Bilder 3 und 4 
sind die zu diesen Listings passenden 
Struktogramme. Die Bedingung nach 
dem Schlüsselwort IF ist ein beliebiger 
Ausdruck mit dem Ergebnistyp BOO- 
LEAN. Ist der Wert des Ausdruckes 
TRUE, so wird die Anweisung hinter 
dem Schlüsselwort THEN ausgeführt. 
Ist das Ergebnis FALSE, so wird die 
Anweisung nach dem Schlüsselwort 
ELSE (falls vorhanden) ausgeführt. 

Soll hinter THEN oder ELSE mehr als 
eine einzelne Anweisung stehen, müs¬ 
sen Sie diese Anweisungen mit BEGIN 
und END zu einer zusammengesetzten 
Anweisung »klammern«. Ein Beispiel 
hierfür zeigt Listing 7. Ein häufiger Feh¬ 
ler besteht darin, vor ELSE ein Semiko¬ 
lon einzufügen. In diesem Fall erkennt 
der Compiler die einseitige Auswahl 


IF Bedingung THEN 

IF A = X THEN 

Listing 5. Die ein- 

Anweis ung 

WRI TELN( X, ' gefunden! • ) 

fache IF-Anweisung 


IF Bedingung THEN 

IF A> B THEN 

Listing 6. Die IFAnweisung 

Anweisung 

MAXIMUM: - A 

ELSE 

ELSE 

mit ELSE-Zweig 

Anweisung 

MAXIMUM: = B 



Bild 3. 
Struktogramm 
der einfachen 
IFAnweisung 






iä — _ _ -_ A > - -" nein 

Bild 4. 
Struktogramm 
der IFAnweisung 

mit FLSF-7uiAln 

MAXIMUM: = A 

MAXIMUM: = B 

L -■---’- 

■ Mit bLwC» «■fvviy 


PROGRAM PQFORMEL (INPUT, OUTPUT); 


(* BERECHNE DIE LOESUNG DER GLEICHUNG X*X + 

P*X + Q = 0 *) 

VAR P, 0, A, W 
BEGIN 

: REAL; 


WRI TE( 1 P - • 

) ; READLN( P) ; 


WRI TE( 1 0 » • 
A: * - P / 2; 

); READLN(Q); 


W: « SQR( A) - 

0; 


IF W<0 THEN 


Listing 7. 

WRITE( 1 Es 
ELSE 

existiert keine Loesung') 

»»Quadratische 

BEGI N 


Gleichung« als 

WRITELN( 
WRITELN( 

1 XI * • , A ♦ SQRT( W)); 

‘ X2 = ' , A - SQRT( W) ) 

Beispiel für 

END; 

die IFTHEN-ELSE- 

END. 


Anweisung 


PROGRAM MAXIMUM (INPUT, OUTPUT); 

VAR MAX : INTEGER; 

A, B; C: INTEGER; 

BEGI N 

WRI TE( ' A B C: ' ) ; READLNC A, B, C) ; 

IF A> B THEN 

IF A> C THEN 

MAX- s A 

Listing 8. 

ELSE 

»»Maximum« - 

MAX: - C 

ein Beispiel für 

ELSE 

IF B> C THEN 

verschachtelte 

MAX: * B 

IFAbfragen 

ELSE 

MAX: * C; (*<- erst hier 

darf ein Semikolon stehen! *) 

WRITELN( ' Das Maximum von ' , A, B, C, ' 

ist *,MAX) 

END. 



(wie in Bild 3) und »beschwert« sich, 
daß er mit dem Schlüsselwort ELSE 
nichts anzufangen weiß. 

Natürlich kann die Anweisung nach 
THEN und ELSE wiederum eine IF- 
Anweisung sein, was in Listing 8 dazu 
verwendet wird, das Maximum der Zah¬ 
len A, B und C zu bestimmen. Bild 5 
zeigt die zugehörige Blockstruktur, 
wobei man deutlich erkennt, daß jeder 
der geschachtelten Blöcke nur einen 


Eingang und einen Ausgang besitzt. Ein 
Beispiel für die Schachtelung der ein¬ 
seitigen Auswahl bietet Listing 9. Hier 
wird zu einem Tagesdatum das Datum 
des nachfolgenden Tages berechnet, 
wobei zur Vereinfachung angenommen 
wird, daß jeder Monat 30 Tage besitzt. 

Wollen Sie komplexe IF...THEN..ELSE- 
Schachtelungen programmieren, so 
müssen Sie darauf achten, daß der 
Compiler jedes ELSE der letzten IF- 


















Bild 5. 
Struktogramm 
zum Listing 
»Maximum« 


PROGRAM TAGESDATUM (INPUT, OUTPUT); 
CONST TAGE_PRO_MONAT • 30; 

MONATE_PRO_JAHR * 12; 

VAR TAG, MONAT, JAHR: INTEGER; 
BEGIN 


Anweisung zuordnet, die noch kein 
ELSE besitzt. Um in diesen Fällen Pro¬ 
bleme zu vermeiden, empfiehlt es sich, 
die »innen« liegenden IF-AnWeisungen 
mit BEGIN und END zu klammern. 

Oft ist es erforderlich, in Abhängigkeit 
eines Wertes verschiedene Berech¬ 
nungen durchzuführen. Für solche 
Fälle bietet sich die »CASE-Anweisung« 
an (Listing 10 und Bild 6). Es wird der 
Ausdruck nach dem Schlüsselwort 
CASE berechnet (der einen skalaren 
Typ besitzen muß) und in Abhängigkeit 
vom Ergebnis zu einer der Anweisun¬ 
gen hinter den Fallmarken verzweigt. 
Diese Fallmarken müssen jeweils Kon¬ 
stanten mit dem Typ des Ausdruckes 
hinter CASE sein. Stimmt keine der Fall¬ 
marken mit dem Ergebnis überein (zum 
Beispiel MONAT = 14), so erfolgt in 
Standard-Pascal ein Programmabbruch 
mit Fehlermeldung (viele Compiler 
erlauben jedoch auch die Angabe eines 
ELSE-Zweiges, auch OTHERWISE ge¬ 
nannt, dessen Anweisung in diesem 
Fall ausgeführt wird). 

Ein weiteres Beispiel für die CASE- 
Anweisung ist in Listing 11 gegeben. In 
diesem Programm werden von der 
Tastatur zwei Zahlen gelesen, die in 
Abhängigkeit von einem Zeichen (* . + 
- /) multipliziert, addiert, subtrahiert 
oder dividiert werden. Falls bei der Ver¬ 
arbeitung kein Fehler aufgetreten ist, 
wird das Ergebnis ausgedruckt. Bemer¬ 
kenswert an dem Beispiel ist noch die 
Verwendung der booleschen Variablen 
OK, die den Wert FALSE enthält, falls 
ein illegaler Befehl eingegeben oder 
eine Division durch 0 versucht wurde. 

In Basic würde man bei einem Fehler 
mit GOTO aus dem Inneren der CASE- 
Anweisung springen. Die auf den 
ersten Blick etwas schwerfällig anmu¬ 
tende Lösung mit der booleschen Varia¬ 
blen sorgt jedoch dafür, daß die CASE- 
Anweisung keinen zusätzlichen 
»Fehler-Ausgang« besitzt, der die 
Blockstruktur der zusammengesetzten 
Anweisung verletzen würde. Gerade 
bei großen Programmen sind nämlich 
Sonderbehandlungen mit Sprüngen 
quer durch den gesamten Programm¬ 
text eine schwer kontrollierbare Fehler¬ 
quelle. 

Als kleiner Einschub ist in Listing 12 
eine alternative Lösung der Aufgabe in 
dem Programm in Listing 10 gegeben. 
Sie nutzt die Tatsache, daß man in Pas¬ 
cal auch mit Mengen wie in der Men¬ 
genlehre in der Grundschule rechnen 
kann. Eckige Klammern ersetzen hier¬ 
bei die geschweiften Klammern der 
Mathematik. 

[1,2,3,4] und [1..4] bezeichnen die¬ 
selbe Menge, nämlich die Zahlen von 1 
bis 4. Hingegen bezeichnen [] aber 
auch [3..1] die leere Menge, die keine 
Zahl enthält. 


HRITBLN( ' Heute ist der TAG, ’ 
TAG: - TAG + 1; 

IF TAG>TAGE_PRO_MONAT THEH 
BEGIN 

TAG: * 1 ; MONAT:* MONAT+1 ; 

IF M0NAT>M0NATE_PR0_JAHR THEN 
BEGIN 

MONAT: -1; JAHR:« JAHR+1 
END 
END; 

HRITELNt* Morgen ist der 1 , TAG, ' . ' 
END. 


Mit X IN [1,3,9,27] 

wird geprüft, ob die Zahl X in der Menge 
der Dreierpotenzen bis 27 enthalten ist. 
In der Tabelle 4 auf Seite 30 sind einige 
dieser Operationen mit Mengen darge¬ 
stellt (Vereinigungsmenge, Schnitt¬ 
menge, Differenzmenge, Test auf Teil¬ 
mengen, Test auf Gleichheit). 

Bei der Besprechung der zusammen¬ 
gesetzten Anweisungen haben wir in 
der Übersicht (Bild 2) die »Wiederho¬ 
lungsanweisungen« erreicht. Es gibt in 
Pascal drei verschiedene zusammen- 


MONAT, * JAHR); 

Listing 9. 
»Tagesdatum« - 
ein Beispiel zur 
Schachtelung der ein¬ 
seitigen Auswahl 

MONAT, JAHR); 


gesetzte Anweisungen, die Wiederho¬ 
lungen definieren, von denen sich jede 
für spezielle Anwendungsfälle beson¬ 
ders eignet. 

Möchte man eine Anweisung so oft 
ausführen, bis eine gewisse Bedingung 
erfüllt wird, bietet sich die »REPEAT- 
Anweisung« (Listing 13) an. Zwischen 
den Schlüsselwörtern REPEAT und 
UNTIL steht eine beliebige Folge von 
Anweisungen, die Semikola trennen. 
Am Ende der Ausführung dieser Anwei¬ 
sungen wird der Ausdruck hinter dem 


CASE Ausdruck OF 
Fallmarke, . . . , 

Fallmarke, . . . , 

Fallmarke, . . . , 

END 


CASE MONAT OF 

1,3,5,7,8,10,12 
4, 6,9,11 
2 


END; (* CASE*) 


Fallmarke 

Fallmarke 


Anweisung; 

Anweisung; 


Fallmarke : Anweisung 


TAGE_PR0_M0NAT: * 31; 

TAGE_PR0_M0NAT: « 30; 

BEGIN 

SCHALTJAHR:« (JAHR MOD 4) - 0) AND 

((JAHR MOD 100)<>0) OR 
(JAHR MOD 400)-0); 

IF SCHALTJAHR THEN TAGE_PRO_MONAT: « 29 
ELSE TAGE_PRO_>ONAT: » 28 

END; 


Listing 10. 
Allgemeine 
Form und Bei¬ 
spiel zur CASE- 
Anweisung 



Bild 6. 
Struktogramm 
der CASE- 
Anweisung 















PROGRAM MINICOMPUTER (INPUT, OUTPUT); 

VAR CH : CHAR; 

A, B, ERG: REAL; 

OK : BOOLEAN; 

BEGIN 

HRITELNt ' Geben Sie ein Operations 2 eichen und zwei Zahlen ein!'); 

READLN( CH, A, B) ; 

OK:* TRUE; (* noch ist kein Fehler aufgetreten *> 

CASE CH OF 

* . • , ' : ERG: * A * B; 

• /' : IF B * 0 THEN 

BEGIN OK: * FALSE; 

WRITELN( ' Fehler: Division durch Null!’) 

END 

ELSE 

ERG: * A / B; 

' +‘ : ERG: * A ♦ B; 

’ -’ ; ERG: - A - B; 

ELSE BEGIN 

OK: * FALSE; 

HRITELNt'Die Operation ', CH, ' ist nicht moeglich!') 

END; 

END; ( * von CASE *) 

IF OK THEN 

HRITELNt'Ergebnis: ERG) 

END. 

Listing 11. Ein »Minicomputer« als weiteres Beispiel für CASE 


IF MONAT IN (1,3,5,7,8,10,121 THEN TAGE_PRO_MONAT: * 31 ELSE 
IF MONAT IN (4,6,9,111 THEN TAGE_PRO_MONAT:* 30 ELSE 

ELSE 

BEGIN (* hier ist MONAT - 2 *) 

SCHALTJAHR:* (JAHR MOD 4) - 0) AND 

( ( JAHR MOD 100) < >0) OR 
(JAHR MOD 400)*0); 

IF SCHALTJAHR THEN TAGE_PRO_MONAT:■ 29 
ELSE TAGE_PRO_MONAT:* 28 
END; 


REPEAT 

REPEAT 

Anweisung; 

HRITELN(' Al1 es klar? (Ja oder Nein)'); 

Anweisung; 

READ( CH) 

Anweisung 

UNTIL Bedingung 

UNTIL CH IN I ’ J’ , ’ j’ , ’ N’ , ’ n’ 1 

Listing 13. Allgemeine Form und Beispiel für REPEAT...UNTIL 


PROGRAMM WURZEL (INPUT, OUTPUT); 

CONST EPS * 1.0E-7; (* Genauigkeit: mindestens 7 Nachkommastellen*) 

VAR X, Y, Z: REAL; 

BEGIN 

WRITE(' Die Quadratwurzel aua '); READ (X); 

IF X<0 THEN 

HRITELNt’ ist keine reelle Zahl’) 

ELSE 

BEGIN (* 1. einen Startwert Z berechnen *) 

Y: - 2; 

REPEAT 

Z: * Y; Y: * Y*Y 
UNTIL Y> X; 

(* 2. Jetzt folgt die eigentliche Berechnung: *) 

REPEAT 
Y: - Z; 

Z: * 0. 5 * ( Y + X/Y) 

UNTIL ABS(Y-Z)<» EPS; ( * bis Abweichung kleiner als Genauigkeit *) 

HRITELNt ’ ist ’ , Z) 

END; 

END. 

Listing 14. Berechnung von Quadratwurzeln unter Verwendung von 
REPEAT...UNTIL-Schieifen 


Listing 12. 

Das Beispiel aus 
Listing 9, program¬ 
miert unter 
Verwendung 
von Mengen 


Schlüsselwort UNTIL ausgewertet. Er 
liefert einen booleschen Wert (TRUE 
oder FALSE). Ist die Abbruchbedin¬ 
gung nicht erfüllt, so wird die Anwei¬ 
sungsfolge wiederholt. In dem Beispiel 
werden also so lange Zeichen von der 
Tastatur eingelesen, bis der Benutzer 
ein »J« oder ein »N« eingegeben hat. Bei 
näherem Hinsehen können Sie also 
feststellen, daß Mengenoperationen 


auch auf Mengen von Zeichen anwend¬ 
bar sind: 

CH IN ['j 'J', 'n', 'N'] 

Eine REPEAT-Schleife benutzt man 
bei Wiederholungen, die in der 
Abbruchbedingung einen Wert benöti¬ 
gen, der erst im Inneren der Schleife 
ermittelt wird. Als Beispiel ist in Listing 
14 die Berechnung der Quadratwurzel 
für eine reelle Zahl X durch eine Itera¬ 


tion aufgeführt. Dieses Programm 
berechnet die Wurzel in zwei Schritten, 
die jeweils eine REPEAT-Schleife benö¬ 
tigen. Im ersten Schritt wird die kleinste 
Zweierpotenz (2,4,8,16,...) Z berech¬ 
net, die quadriert gerade größer als X 
ist. Anschließend wird in der zweiten 
REPEAT-Schleife dieser Startwert Z 
schrittweise modifiziert, bis die Diffe¬ 
renz zwischen zwei Iterationswerten 
kleiner als die gewünschte Genauigkeit 
EPS ist. 

Viel häufiger als die REPEAT-Anwei- 
sung findet die WHILE-Anweisung Ver¬ 
wendung (Listing 15 und Bild 8). Hier 
wird die Bedingung nach dem Wortsym¬ 
bol WHILE vor der Ausführung der 
Anweisung nach DO geprüft. Damit 
besteht insbesondere die Möglichkeit, 
daß diese Anweisung kein einziges Mal 
ausgeführt wird, falls nämlich die Bedin¬ 
gung bereits beim Eintritt in die Schleife 
den Wert FALSE liefert. 

Soll die WHILE-Schleife, was wohl in 
der Mehrzahl der Fälle zutreffen wird, 
mehrere Anweisungen umfassen, so 
muß man diese zu einer Anweisungs¬ 
folge mit BEGIN und END klammern. Ein 
kleines, aber besonders schönes Bei¬ 
spiel für die Funktionsweise der 
WHILE-Schleife zeigt Listing 16. Hier 
wird der Wert E = N K für natürliche 
Zahlen N und K berechnet. K gibt also 
an, wie oft N mit sich selbst multipliziert 
werden muß, um E zu erhalten. Daher 
wird im Programm die Zählvariable I ver¬ 
wendet, die von K abwärts gegen 0 
zählt. Das Beispiel ist deshalb so ideal, 
da durch die Eigenschaft der WHILE- 
Anweisung, eine Prüfung am Beginn 
der Schleife durchzuführen, auch die 
Sonderfälle korrekt behandelt werden. 
In der Mathematik gilt nämlich: 

N° = 1 für alle N 
0 K = 0 für alle K =£ 0 

Durch eine geeignete Wahl der Wie¬ 
derholungsanweisung kann man sich 
also viele Sonderbehandlungen mit IF- 
Anweisungen ersparen. 

Zum Vergleich ist in Listing 17 je eine 
WHILE- und eine REPEAT-Schleife 
angegeben, die alle Zahlen zwischen A 
und B druckt. Wenn Sie mit diesem Pro¬ 
gramm experimentieren, werden Sie 
feststellen, daß der einzige Unter¬ 
schied bei der Ausführung darin 
besteht, daß in der REPEAT-Schleife für 
A > B die Zahl A gedruckt wird, während 
die WHILE-Schleife in diesem Fall nicht 
in Funktion tritt. 

Für eine Anwendung wie in Listing 17 
wird man jedoch normalerweise die 
dritte Variante der Wiederholungsan¬ 
weisungen in Pascal benutzen: Die 
FOR-Schleife (Listing 18) findet überall 
dort Anwendung, wo die Anzahl der 
Schleifendurchläufe vor dem Beginn 
der Schleife bereits bekannt ist. Den 
genauen Ablauf der Ausführung soll fol- 

















gendes Beispiel zeigen: 

FOR I:= A TO B DO WRITE(I) 

1. Berechne A und weise den Wert der 
Variablen I zu. 

2. Berechne B und speichere den Wert 
in einer temporären (unsichtbaren) 
Variablen X 

3. Ist l>X, so beende die Schleife 

4. Sonst drucke die Zahl I 

5. Erhöhe I um 1 und weiter bei 3 
Die Variable I muß einen skalaren Typ 

besitzen (also zum Beispiel CHAR, aber 
nicht REAL) und mit dem Ergebnistyp 
von A und B verträglich sein. Aus dem 
obigen Schema (1..6) folgt außerdem, 
daß für A>B wie bei der WHILE- 
Schleife keine Zahl gedruckt wird. Man 
könnte in der Schleife die Variable B 
auch beliebig verändern, ohne die 
obere Grenze der Zählvariablen (die ja 
in einer temporären Variablen gespei¬ 
chert wurde) zu beeinflussen. 

Um rückwärts zu zählen, besteht 
noch die Möglichkeit, eine Variante der 
FOR-Schleife zu verwenden: 

FOR I:= A DOWNTO B DO WRITE(I) 

Die obigen Regeln gelten für diese 
Schleife analog. Mit der FOR-Schleife 
kann man nur in Einerschritten aufwärts 
oder abwärts zählen, andere Schrittwei¬ 
ten müssen mit einer WHILE-Schleife 
explizit programmiert werden. Im Bei¬ 
spiel aus Listing 19 wird ein Winkel PHI 
in Schritten von DELTA hochgezählt und 
dabei eine Funktion am Bildschirm 
»gezeichnet«. 

Wenn Sie zu der Übersicht in Bild 2 
zurückblättern, werden Sie erkennen, 
daß wir mit der Vorstellung der FOR- 
Schleife praktisch alle Anweisungen in 
Pascal besprochen haben. Zwei funda¬ 
mentale Eigenschaften von Pascal wur¬ 
den jedoch noch ausgespart. 

(1) Zusammengesetzte Typen er¬ 
möglichen es, nicht nur mit einzelnen 
Zahlen und Zeichen, sondern sogar mit 
hierarchisch aufgebauten und auch 
veränderlichen Datenstrukturen zu 
arbeiten. 

(2) Neben den bereits vorgestellten 
Standard-Prozeduren READ, READLN, 
WRITE und WRITELN gibt es noch eine 
Vielzahl an vordefinierten Prozeduren 
und Funktionen, die in jeder Implemen¬ 
tation der Sprache Pascal vorhanden 
sind. Viel bemerkenswerter ist jedoch 
die Möglichkeit, beliebige Teile eines 
Programmes als Prozeduren und Funk¬ 
tionen zu definieren, die über 
bestimmte Schnittstellen mit ihrer 
»Umwelt« (Prozeduren oder Hauptpro¬ 
gramm) kommunizieren können. 

In den folgenden Beiträgen werden 
diese beiden wichtigen und interessan¬ 
ten Gebiete ausführlich behandelt, 
wobei gleichzeitig das bisherige Wis¬ 
sen über die einfachen Typen und die 
Anweisungen in Pascal angewandt und 
vertieft wird. (Florian Matthes/ev) 


WRITELN ('ALLES KLAR?') 


READ (CH) 


UNTIL CH IN l'J'.'J'.'N'.'n') 


Bild 7. 
Struktogramm 
der REPEAT- 
Anweisung 


WHILE Bedingung DO WHILE X>*1.0 DO 

Anweisung X:* X / 2.0; 

Listing 15. Allgemeine Form und Beispiel für die WHILE...DO-Schleife 






WHILE X > = 1.0 

Bild 8. 
Struktogramm 
der WHILE- 
Anweisung 


X: = X /2.0 




PROGRAM HOCH (INPUT, OUTPUT); 


PROGRAM Z UM_VERGLEICH (INPUT, OUTPUT); 

VAR I, N, E, K: INTEGER; 


VAR I, A, B: INTEGER; 

BEGIN 


BEGIN 

READLN( N, K) ; 


READLN( A, B) ; 

IF ( N< 0) OR ( K< 0) THEN 


WRI TE( ' Mit REPEAT: 1 ) ; 

WRITELNt ’ ungueltige Eingabe!') 


I: «A; 

ELSE 


REPEAT 

BEGIN 


WRITE( I) ; 

E: =1; I: -K; 


I: « 1 + 1 

WHILE I>0 DO 


UNTIL I > B; 

BEGIN 

E: « E*N; 


WRITELN; 

I: « 1-1 


WRI TE( ' Mit WHILE: ' ) ; 

END; 


I: » A; 

WRI TELN( N, ' , K, ' «' , E) 


WHILE I< »B DO 

END 


BEGIN 

END. 


write(I); Listing 17. 

I ;“ 1+1 Ein Programm zum 

writeln Vergleich zwischen 

Listing 16. Ein Demo-Programm unter 


Verwendung der WHILE...DO-Schleife 


end. WHILE und REPEAT 


FOR Variable:« Ausdruck TO Ausdruck DO FOR I:» 1 TO 1000 DO 

Anweisung SUMME:« SUMME + 1 / I 

FOR Variable:« Ausdruck DOWNTO Ausdruck DO FOR I:« 1000 DOWNTO 1 DO 
Anweisung SUMME:« SUMME >1/1 

Listing 18. Allgemeine Form und Beispiel für die FOR-Schleife 


PROGRAM SCHWINGUNG (INPUT, OUTPUT); 

(* Z EI CHE DIE FUNKTION P(PHI) » EXP( -PHI/PI) * SIN (PHI) *) 

CONST PI « 3.1415926; 

MAXZEILEN « 40; (* Laenge der Ausgabe in Zeilen *) 

MITTE « 40; (* Mitte eines 80-Zeichen Bildschirms*) 

VAR PHI,Y, DELTA : REAL; 

SPALTE, ZEILE: INTEGER; 

BEGIN 

DELTA:= 6*PI / MAXZEILEN 
FOR ZEILE:« 0 TO MAXZEILEN DO 
BEGIN 

PHI:» DELTA * ZEILE; (* AKTUELLER WINKEL *) 

Y :» EXP(-PHI/PI) *SIN( PHI) ; 

SPALTE: - MITTE + ROUND( MITTE * Y) ; 

WRITELN(’: SPALTE); (* drucke Stern in Spalte SPALTE *) 

END; 

END. 

Listing 19. Schwingungs-Berechnung mit FOR-Schleife 

















Programmieren mit Pascal 


Mit diesem Artikel steigen wir 
voll in die eigentliche Program¬ 
mierung mit Pascal ein. Prozedu¬ 
ren, Funktionen und Datentypen 
heißen die Stichworte. 

W ie steigt man am einfach¬ 
sten in die Programmierung 
ein? Nun, vermutlich mit 
einem Programm zum Ausprobieren 
und Experimentieren. Das Beispielpro¬ 
gramm in Listing 1 liest einen Text von 
der Tastatur ein und zeichnet ein einfa¬ 
ches Balkendiagramm wie in Bild 1, das 
die Häufigkeit jedes Zeichens angibt. 
Wir möchten Sie bitten, vor dem Weiter¬ 
lesen einen längeren Blick auf das 
Listing zu werfen, um einerseits die 
bereits im einführenden Artikel bespro¬ 
chenen Sprachelemente (zum Beispiel 
die FOR-Schleife) zu verstehen und 
andererseits einen Überblick über die 
neuen Probleme zu bekommen. 

Der Kern des Programms besteht 
darin, für jeden Buchstaben einen Zäh¬ 
ler zu führen, der bei jedem Auftreten 
des Buchstabens im eingelesenen Text 
erhöht wird. Natürlich möchte man nicht 
für jeden Buchstaben eine Zählvariable 
deklarieren und dann in einer riesigen 
CASE-Anweisung jeden einzelnen Zäh¬ 
ler erhöhen. Statt dessen vereinbart 
man ein ARRAY (Feld, Tabelle) von Zäh¬ 
lern: 

VAR Z: ARRAY ['0'..'Z'] 

OF INTEGER; 

Ein Array ist eine Variable, über deren 
Namen mehrere Werte des gleichen 
Typs angesprochen werden. Das Array 
Z besitzt für jedes Zeichen zwischen 
»0« und »Z« einen Wert vom Typ INTE¬ 
GER. Auf die einzelnen Werte greift man 
durch Nennung des Array-Namens, 
gefolgt von einem Index in eckigen 
Klammern, zu: 

Z['0-]:= 13; 

WRITELN (Z['X']); 

Z[CH]:= Z[CH] + 1 
Die letzte Zuweisung zeigt eine wich¬ 
tige Eigenschaft von Arrays: Man kann 
als Index eine Variable (hier CH) oder 
einen beliebig komplexen Ausdruck 
verwenden. Für Basic-Programmierer 
ungewohnt ist die Eigenschaft von Pas¬ 
cal, nicht nur Zahlen, sondern beliebige 
geforderte Datentypen als Index zuzu¬ 
lassen. 

Um alle Zähler in Z zurückzusetzen, 
kann man also folgende FOR-Schleife 
verwenden: 

FOR CH:= '0' TO 'Z' DO Z[CH]:= 0; 

Nach diesem speziellen Beispiel sol¬ 


len Sie auch die allgemeinen Regeln für 
Arrays in Pascal kennenlernen: 

1. Ein Array muß wie jede andere 
Variable im Variablendeklarationsteil 
vereinbart werden. 

2. Ein Array ist ein zusammengesetz¬ 


ter Typ, der durch zwei Typen beschrie¬ 
ben wird: Den skalaren Indextyp und 
den beliebig wählbaren Elementtyp. Z 
hat also den Indextyp »’0’.. ’Z’« und den 
Elementtyp INTEGER. 

3. Beim Indizieren muß der Typ des 


PROGRAM HAEUFIGKEIT (INPUT, OUTPUT); 

(* STATISTIK DER BUCHSTABENHAEUFIGKEIT IN EINEM TEXT *) 

CONST VON = • 0* ; BIS » • Z* ; 

ENDEZEICHEN * ' ; 

BILDSCHIRMBREITE = 80; (* 80 ZEICHEN PRO 7.EILE AM BILDSCHIRM *) 

TYPE ZAEHLERFELD » ARRAY! VON. . BIS) OF INTEGER; 

VAR Z : ZAEHLERFELD; 

( * --- BEGINN DER PROZEDUREN *) 

PROCEDURE LOESCHEN( VAR A: ZAEHLERFELD) ; 

(* ALLE ZAEHLER ZURUECKSETZEN *) 

VAR CH: CHAR; 

BEGIN 

FOR CH: • VON TO BIS DO A( CH) : =0 
END; (* LOESCHEN *) 

PROCEDURE ZAEHLEN (VAR A: ZAEHLERFELD); 

(* TEXT VON DER TASTATUR BIS ENDEZEICHEN EINLESEN UND ZAEHLER IN A ERHOEHEN *) 
VAR CH: CHAR; 

BEGIN 

HRITELN( ' GEBEN SIE JETZT BITTE EINEN TEXT EIN, DER MIT * , ENDEZEICHEN, 

• ENDET'); 

REPEAT 

READ( CH) ; 

IF CH IN ( VON. . BIS) THEN 
Al CHJ : * Al CH) ♦ 1 ; 

UNTIL CH « ENDEZEICHEN; 

WRITELN 

END; ( * ZAEHLEN *) 

PROCEDURE STATISTIK (A: ZAEHLERFELD); 

(* DRUCKE FUER JEDEN BUCHSTABEN EINEN BALKEN, DER DIE HAEUFIGKEIT DES *) 

(* ZEICHENS ANGIBT. *) 

VAR CH : CHAR; 

MAX : INTEGER; 

HOEHE: INTEGER; 

PROCEDURE BALKEN (N:INTEGER); 

(* ZEICHNE EINEN HORIZONTALEN BALKEN MIT N ZEICHEN *) 

BEG1 N 

WHILE N> 0 DO 
BEGIN 

WRI TE( • #• ) ; N: - N-1 
END; 

WRITELN; 

END. (* BALKEN *) 

BEGIN (* HIER BEGINNT DER ANWEISUNGSTEIL DER PROZEDUR STATISTIK *) 

WRITELN( ' STATISTIK DER BUCHSTABENHAEUFIGKEITEN: ') ; 

(* BESTIMME ZUNAECHST DEN MAXIMALEN ZAEHLERSTAND: *) 

MAX: - Al VON) ; 

FOR CH: 3 SUCC( VON) TO BIS DO 
IF Al CH) > MAX THEN MAX: - AI CH) ; 

(* ZEICHEN JETZT DIE BALKEN: *) 

FOR CH: »VON TO BIS DO 
BEGIN 

WRI TE( CH, ‘ ! ' ) ; 

HOEHE: = ROUND( AICH) * (BILDSCHIRMBREITE-3)/MAX); 

(* DAMIT NIMMT DER HOECHSTE BALKEN DIE GESAMTE BILDSCHIRMBREITE EIN *) 
BALKEN ( HOEHE) ; 

END; 

END; (* STATISTIK *) 

( * ENDE DER PROZEDUREN *) 

BEGIN 

LOESCHEN (Z); 

ZAEHLEN (Z); 

STATISTIK!Z); 

END. 

Listing 1. Programm »Häufigkeit« 









Ausdruckes in eckigen Klammern mit 
dem bei der Deklaration vereinbarten 
Indextyp verträglich sein. »Z[5]:=0« 
wäre nach der oben angegebenen De¬ 
klaration von Z nicht zulässig, da die 
Zahl 5 kein Zeichen ist. Außerdem ist 
auch die Zuweisung »Z[T]:=3« nicht 
erlaubt, da das Zeichen ’!’ nicht im Inter¬ 
vall »0« bis »Z« liegt. 

Wenn Sie die Deklaration der Varia¬ 
blen Z im Beispiel 24 untersuchen, wer¬ 
den Sie feststellen, daß diese in drei 
Schritten erfolgte: Zunächst wurden 
zwei Konstanten 
CONST V0N='0'; BIS='Z'; 
eingeführt. Mit diesen beiden Konstan¬ 
ten erfolgte im nächsten Schritt eine 
Typendeklaration: 

TYPE ZAEHLERFELD = ARRAY 
[VON .. BIS] OF INTEGER; 

Nach dem Schlüsselwort TYPE wird 
ein Name genannt, dem nach einem 
Gleichheitszeichen eine Typangabe 
folgt. Im dritten Schritt kann in der Varia¬ 
blendeklaration der Typbezeichner 
ZAEHLERFELD benutzt werden, um 
ein Array mit den Indexgrenzen VON 
und BIS und dem Elementtyp INTEGER 
zu definieren. 

VAR A,B,FELD: ZAEHLERFELD; 

ZAEHLER: ZAEHLERFELD; 

Neben der Einsparung von Schreib¬ 
arbeit erhöhen Typnamen die Lesbar¬ 
keit von Programmen. Listing 2 zeigt 
einige Typdeklarationen und anschlie¬ 
ßend die Anwendung dieser Typnamen 
in weiteren Typ- und Variablendeklara¬ 
tionen. 

Jetzt werden Sie wahrscheinlich alle 
Anweisungen mit den Array-Variablen A 
und Z verstehen. Neben der Verwen¬ 
dung von Arrays und Typnamen enthält 
das Programm »Häufigkeit« (Listing 1) 
noch ein weiteres neues Sprachele- 
ment von Pascal. Sie finden in dem Pro¬ 
gramm viermal das Schlüsselwort PRO- 
CEDURE, das eine Prozedurdeklara¬ 
tion einleitet. Nach diesem Schlüssel¬ 
wort folgt der Name der Prozedur, über 
den die Prozedur aufgerufen wird. Der 
eigentliche Anweisungsteil des Pro¬ 
grammes (nach dem letzten BEGIN) 
besteht also nur aus den folgenden drei 
Prozeduraufrufen: 

LOESCHEN (Z); 

ZAEHLEN (Z); 

STATISTIK(Z); 

Das Programm besteht also aus drei 
voneinander unabhängigen Programm¬ 
teilen zum Rücksetzen der Zähler, zum 
Einlesen des Textes und der Ausgabe 
der Statistik. Jeder Prozedur wird in 
Klammern das Array Z als aktueller 
Parameter übergeben. 

Wie sieht aber eine Prozedurdeklara¬ 
tion aus? Prozedurdeklarationen müs¬ 
sen am Ende des Vereinbarungsteils 
(also hinter den Konstanten, Typ- und 
Variablendeklarationen) stehen. Die 
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Bild 1. Ergebnisausdruck des Programms »Häufigkeit« (Ausschnitt) 


Prozedurdeklaration selbst besteht aus 
drei Teilen: 

1. Der Prozedurkopf enthält nach dem 
Namen der Prozdur bei Bedarf in Klam¬ 
mern eine Liste der formalen Parame¬ 
ter: 

PROCEDURE LOESCHE 
(VAR A: ZAEHLFELD); 

Die Prozedur LOESCHEN muß also 
mit einer Variablen vom Typ ZAEHLER¬ 
FELD aufgerufen werden. Die Variable 
besitzt innerhalb der Prozedur den 
Namen A. Beinhaltet eine Prozedur 
mehrere Parameter, so müssen die 
aktuellen Parameter in der Reihenfolge 
der formalen Parameter angegeben 
werden. Der Aufbau der Parameterliste 
kommt später genauer zur Sprache. 

2. Nach dem Prozedurkopf folgen alle 
Deklarationen, wie sie auch beim 
Hauptprogramm möglich sind. Das 
heißt, daß eine Prozedur wie ein eigen¬ 
ständiges Programm mit eigenen Kon¬ 
stanten, Typen, Variablen und wie¬ 
derum Prozeduren ausgestattet sein 
kann. So besitzt zum Beispiel die Proze¬ 
dur LOESCHEN eine Variable CH vom 
Typ CHAR, die nur innerhalb der Proze¬ 
dur gültig ist, und damit insbesondere 
nicht von Anweisungen im Hauptpro¬ 
gramm oder in anderen Prozeduren ver¬ 
ändert werden kann. Die Prozedur STA¬ 
TISTIK enthält selbst eine Prozedurde¬ 
klaration (BALKEN). 

3. Schließlich folgt zwischen den 
Schlüsselworten BEGIN und END der 
Anweisungsteil der Prozedur. Es ist 
üblich, nach dem letzten END in Kom¬ 
mentarklammern den Namen der Pro¬ 
zedur zu nennen, die an dieser Stelle 
endet, damit man bei großen Program¬ 
men jeden Anweisungsteil leicht dem 
Prozedurkopf zuordnen kann. 

Im Beispielprogramm »Häufigkeit« 
werden also nacheinander die Anwei¬ 
sungsteile der Prozeduren LOE¬ 
SCHEN, LESEN und STATISTIK ausge¬ 
führt, wodurch nacheinander die Zähler 
Z gelöscht, erhöht und schließlich gra¬ 
fisch dargestellt werden. 

Jetzt ist es an der Zeit, daß Sie etwas 
mehr über die Sichtbarkeitsregeln von 
Namen in Pascal erfahren. Sie legen 
fest, welche Namen in einer Prozedur 


PROGRAM TYPEN (INPUT, OUTPUT); 

COHST ANZAHL.AUFGABEN - 400; 

TYPE GROSSE.Z AHL - REAL; 

KLEI NE _Z AHL - INTEGER; 

ZEICHEN - CHAR; 

ERGEBNIS * BOOLEAN; 

EINKOMMEN - ARRAY 11970..1986) 
OF GROSSE.Z AHL; 

ZEILE - ARRAY (1 . . 80] OF 

CHAR* 

TESTBOGEN - ARRAY (1.. ANZAHL. 
AUFGABEN] OF ERGEBNIS; 

VAR A,B,C : GROSSE.ZAHL 

CH1.CH2 : ZEICHEN; 

UEBERSCHRIFT : ZEILE; 

DEUTSCHLAND, ENGLAND : EINKOMMEN; 

MEDIZINERTEST : TESTBOGEN; 

BEGIN 

END. 

Listing 2. Beispiele für 
Typdeklarationen 


zur Anwendung kommen. Zunächst 
noch eine Definition: Ein Block ist eine 
Prozedur oder das Hauptprogramm 
selbst. 

In einem Block sind alle die Namen 
sichtbar (also gültig), die innerhalb die¬ 
ses Blockes deklariert wurden. Außer¬ 
dem noch diejenigen, die in einem 
»umfassenden« Block deklariert wur¬ 
den. Wurde ein Name sowohl in einem 
umgebenden Block als auch im Block 
selbst deklariert, so ist nur die innere 
Deklaration sichtbar. 

Variablen, die in einer Prozedur fest¬ 
gelegt wurden, heißen lokale Variablen 
dieser Prozedur. Benutzt jedoch eine 
Prozedur Variablen, die in einem umge¬ 
benden Block deklariert wurden, so 
nennt man diese global. 

Diese Regeln soll das Programm 
»Sichtbarkeit« in Listing 3 verdeutli¬ 
chen. Zur Unterstützung ist in Bild 2 die 
Schachtelung der Blöcke grafisch dar¬ 
gestellt. Die Prozedur PI besitzt drei 
lokale Namen, nämlich den Parameter 
VI, die Konstante K4 und die Variable V 
2. Durch die Deklaration des Namens 
»V1:CHAR« in PI ist der Name »VI: TI« 
aus dem Hauptprogramm in PI nicht 
sichtbar. Andererseits sind die Namen 
von PI nicht in P2, P21 oder dem 
Hauptprogramm sichtbar. 

Prozedur P21 zeigtauch, daß Namen 
über mehrere Blöcke hinweg sichtbar 












sind: So in P21 der Name K2 aus dem 
Hauptprogramm, da P21 in der Proze¬ 
dur P2 enthalten ist, die selbst zum 
Hauptprogramm gehört. 

Für die Praxis bedeutet dies, daß man 
in einer Prozedur Namen ohne Rück¬ 
sicht auf die »Umgebung« deklarieren 
kann. Tatsächlich versucht man sogar, 
nur in Ausnahmefällen auf globale Varia¬ 
blen zuzugreifen und alle Werte als 
Parameter an die Prozeduren zu über¬ 
geben. Damit kann man später die Pro¬ 
zedur in einem völlig anderen Pro¬ 
gramm verwenden, ohne daß Namens¬ 
konflikte auftreten. 

Nach diesem etwas theoretischen 
Abschnitt soll eine Reihe von Beispie¬ 
len diese Regeln illustrieren und außer¬ 
dem verschiedene Typen von Parame¬ 
tern vorstellen. Das erste Beispiel 
(Listing 4) zeigt eine Prozedur, die eine 
INTEGER-Zahl als eine Hexadezimal¬ 
zahl anzeigt. Zur Anzeige wird die vier¬ 
stellige Zahl zunächst in zwei Byte zer¬ 
legt, deren beide Hexadezimal-Steilen 
schließlich mit der Prozedur PRINTDI¬ 
GIT angezeigt werden. Klar zu erken¬ 
nen ist hier die Schachtelung der drei 
Prozeduren, wobei jede einen Parame¬ 
ter X vom Typ INTEGER besitzt. 

Die Prozedur SWAP in Listing 5 
besitzt zwei Parameter des Typs INTE¬ 


GER. Die Prozedur tauscht den Inhalt 
dieser beiden Parameter aus. 

Listing 4 und 5 zeigen die beiden in 
Pascal vorhandenen Typen von Para¬ 
metern. Wird ein formaler Parameter im 
Prozedurkopf mit dem Schlüsselwort 
VAR gekennzeichnet, so nennt man ihn 
einen Variablenparameter. In diesem 
Fall muß der aktuelle Parameter eine 
Variable des angegebenen Typs sein. 
Der Aufruf 
SWAP(5,6) 

wäre also nicht zulässig. Innerhalb der 
Prozedur bewirkt jede Zuweisung an 
einen Variablenparameter eine Ände¬ 
rung des Wertes der Variablen, die als 
aktueller Parameter übergeben wurde. 
Wurde also zum Beispiel die Prozedur 
SWAP mit den Variablen X und Y aufge¬ 
rufen, so wird durch die Zuweisung 
A:=B tatsächlich der Variablen X der 
Wert der Variablen Y zugewiesen. 

Die Parameter der Prozedur PRINT¬ 
HEX sind hingegen Wertparameter. 
Beim Aufruf einer solchen Prozedur 
werden die aktuellen Parameter, die 
nicht unbedingt Variablen sein müssen, 
in lokalen Variablen der Prozedur 
gespeichert. Bei der Ausführung der 
Prozedur wird nur auf diese Kopie des 
aktuellen Parameters zugegriffen, so 
daß insbesondere eine Zuweisung an 


einen Wertparameter niemals eine 
Änderung im aufrufenden Block 
bewirkt. 

Ist Ihnen der Unterschied noch nicht 
völlig klar, so sollten Sie das Schlüssel¬ 
wort VAR aus dem Prozedurkopf von 
SWAP löschen und das Programm neu 
compilieren. Nach der Rückkehr aus 
der Prozedur werden dann die Werte 
der Variablen X und Y im Hauptpro¬ 
gramm unverändert sein. 

Jeder Parameter wird wie eine Varia¬ 
ble mit der Angabe seines Typs nach 
einem Doppelpunkt deklariert. Dabei ist 


PROGRAM VARIABLENPARAMETER (INPUT, 
OUTPUT); 

VAR X, Y: INTEGER; 

PROCEDURE SWAP (VAR A,B: INTEGER); 

(* TAUSCHE DEN INHALT VON A UND B *) 

VAR H: INTEGER; 

BEGIN 

H: *A; A: -B; B: »H 
END; (* SWAP *) 

BEGIN 

X: =3; Y: » 4; 

SWAP (X,Y); 

WRITELN ( X, Y); 

END. 

Listing 5. Ein Beispiel für die 
Verwendung von Wert-Parametern 


PROGRAM SICHTBARKEIT (OUTPUT); 

CONST Kl * 3; K2 = 1 C' ; K3 - •-• ; 

TYPE TI « INTEGER; T2 = REAL; 

VAR VI : TI; 

PROCEDURE PI (VAR VIcCHAR); 

CONST K4 » 23. 4; . 

VAR V2 : INTEGER; 

BEGIN 

(* HIER SIND FOLGENDE NAMEN SICHTBAR: 

CONST Kl =3; K2 « ’ C’ ; K3 « '-•; K4 = 23.4; 

TYPE TI - INTEGER; T2 = REAL; 

VAR VI : CHAR; 

V2 : INTEGER; *) 

END; <* PI *) 

PROCEDURE P2; 

VAR V2: REAL; 

PROCEDURE P21; 

CONST Kl - • 2* ; 

BEGIN 

<* HIER SIND FOLGENDE NAMEN SICHTBAR: 

CONST Kl « * 2* ; K2 - • C* ; K3 = 1 -• ; 

TYPE TI * INTEGER; T2 = REAL; 

VAR VI : TI; 

V2 : REAL; *) 

END; ( * P21 *) 

BEGIN (* ANFANG DES ANWEISUNGSTEILS VON PI *) 

(* HIER SIND FOLGENDE NAMEN SICHTBAR: 

CONST Kl - 3; K2 * 1 C* ; K3 - *-' ; 

TYPE TI - INTEGER; T2 » REAL; 

VAR VI : TI; 

V2 : REAL; *) 

END; (* P2 *) 

BEGIN 

(* HIER SIND FOLGENDE NAMEN SICHTBAR: 

CONST Kl - 3; K2 « • C* ; K3 * • • ; 

TYPE TI * INTEGER; T2 = REAL; 

VAR VI : TI; 

V 2 : REAL; *) 

END. 

Listing 3. Ein Beispiel für Sichtbarkeitsregeln 


“tOGRAM WERTPARAMETER (INPUT, OUTPUT); 

VAR X. INTEGER; 

PROCEDURE PRINTHEX (X: INTEGER); 

(* DRUCKE GANZE ZAHL X ALS HEXADEZIMALZAHL IM FORMAT 
$XXXX *) 

PROCEDURE PRINTBYTE (X: INTEGER); 

(* DRUCKE ZAHL ZWISCHEN 0 UND 255 ALS BYTE IM FORMAT 
XX *) 

PRINTDIGIT (X: INTEGER); 

<* DRUCKE HEXADEZIMALE ZIFFER *) 

BEGIN 

IF X> 9 THEN 

WRI TE( CHR( X-1 0 + ORD( ’ A' ) ) ) 

ELSE 

WRITE(X) 

END; ( * PRINTDIGIT *) 

BEGIN 

PRI NTDI Gl T( X DIV 16) ; 

PRINTDIGlT(X MOD 16); 

END; ( * PRINTBYTE *) 

BEGIN 

WRI TE( * $* ) ; 

PRINTBYTE( X DI V 256); 

PRINTBYTE(X MOD 256); 

END; (* PRINTHEX *) 

BEGIN <* HAUPTPROGRAMM *) 

WRITELN('Geben Sie positive ganze Zahlen ein:*); 

READ( X) ; 

WHILE X>0 DO 
BEGI N 

WRI TELN( - *); PRINTHEX(X); 

READ(X) 

END; 

END. 


Listing 4. Umrechnung dezimal nach hexadezimal 


















PROGRAM VEKTOROPERATIONEN (INPUT, OUTPUT); 

CONST N « 3; (* LAENGE EINES VEKTORS * ANZAHL DER ELEMENTE 

IM VEKTOR *) 

TYPE VEKTOR - ARRAYI1..31 OP REAL; 

VAR X.Y.Z : VEKTOR; 

SKALAR: INTEGER; 

PROCEDURE HOLEN( VAR V: VEKTOR); 

(* VEKTOR MIT N KOMPONENTEN EINLESEN *) 

VAR I: INTEGER; 

BEGIN 

FOR I: * 1 TO N DO READ(VIIJ); 

READLN; 

END; (* HOLEN *> 

PROCEDURE DRUCKENt V: VEKTOR); 

(* VEKTOR MIT N KOMPONENTEN DRUCKEN *) 

VAR I: INTEGER; 

BEGIN 

FOR I:- 1 TO N DO HRITE(VII1:8); 

WRITELN; 

END; (* DRUCKEN *) 


PROCEDURE ADDIEREN ( A, B: VEKTOR; VAR C: VEKTOR); 

(* c = A ♦ B. DIE ADDITION ERFOLGT KOMPONENTENWEISB M 

VAR I: INTEGER; 

BEGIN 

FOR I: - 1 TO N DO ClI) : « AID ♦ B(IJ 
END; (* ADDIEREN *) 


PROCEDURE MULTIPLIZIEREN (S: REAL; A: VEKTOR; VAR C: VEKTOR) 
( * C * S * A. JEDE KOMPONENTE WIRD MIT S MULTIPLIZIERT *> 

VAR I: INTEGER; 

BEGIN 

FOR I:- 1 TO N DO CI 11 : » S * AID 
END; (* MULTIPLIZIEREN *) 

BEGIN 

HRI TE( ’ X -' ) ; HOLEN( X) ; 

HRI TE( • Y •' ) ; HOLEN( Y) ; 

ADDIEREN<X,Y,Z); 

HM TBC X ♦ Y »*); DRUCKEN« Z); 

HRITECF -*); READLN( SKALAR) ; 

MULTIPLIZIEREN ( SKALAR, X,Z); 

HRITE(* F * X =* ) ; DRUCKEN« Z); 

END. 


Llsting 6. Vektoroperationen in Pascal 


zu beachten, daß in der Parameterliste 
nur Typnamen auftreten dürfen. Diese 
müssen Sie also eventuell zunächst 
(außerhalb der Prozedur) im Typverein¬ 
barungsteil bestimmt haben. Statt 
PROCEDURE DRUCKE(X:ARRAY [1..2] 

OF CHAR); 

muß man schreiben 

TYPE T: ARRAY [1..2] OF CHAR; 

PROCEDURE DRUCKE(X: T); 

Es gibt keinerlei Beschränkung für 
die Typen der Variablen- oder Wertpara¬ 
meter. Dies soll das Beispiel in Listing 6 
verdeutlichen. In der Mathematik würde 
man ein Array mit N Elementen des Typs 
REAL als einen Vektor reeller Zahlen 
bezeichnen. Mit Vektoren kann man wie 
mit »normalen« Zahlen rechnen. Sind X 
und Y zwei Vektoren und S eine reelle 
Zahl, so kann man zum Beispiel X+Y 
und S*X berechnen. Damit Sie auch mit 
diesen Operationen ein wenig experi¬ 
mentieren können, sind neben den Pro¬ 
zeduren ADDIEREN und MULTIPLIZIE¬ 
REN noch die Prozeduren HOLEN und 
DRUCKEN zur Ein- und Ausgabe von 
Vektoren vorhanden. 

An diesen vier Prozeduren erkennen 
Sie gut den Unterschied zwischen 
Wert- und Variablenparametern. Nur 
wenn über einen Parameter ein Ergeb¬ 
nis oder eine Eingabe zurückgeliefert 
werden soll, verwendet man Variablen¬ 
parameter, ansonsten Wertparameter. 
Dadurch ist während der Ausführung 
der aktuelle Parameter gegen (unbeab¬ 
sichtigtes) Überschreiben geschützt. 

Es gibt jedoch einen weiteren Fall, in 
dem man mit Variablenparametern ar¬ 
beitet, obwohl keine Ergebnisse zu¬ 
rückgeliefert werden sollen. Werden 
sehr große Variablen an ein Unterpro¬ 
gramm übergeben, so existiert jeder 
Parameter im Speicher des Rechners 
doppelt. Einerseits wird der Wert der 


Variablen im aufrufenden Programm 
gespeichert und zusätzlich beim Aufruf 
der Prozedur als lokale Variable. Für die 
Praxis können Sie sich also merken, 
daß Sie große Arrays (insbesondere auf 
Mikrocomputern mit ihrem kleinen 
adressierbaren Speicherraum) am 
besten als Variablenparameter überge¬ 
ben. Bei diesen wird nämlich nur eine 
Adresse (also nur wenige Bytes) an die 
Prozedur übergeben, die die Position 
des aktuellen Parameters im Speicher 
bezeichnet. In der Prozedur wird dann 
jeder Zugriff auf diesen Parameter indi¬ 
rekt über die Adresse ausgeführt. 

Wegen dieser unterschiedlichen For¬ 
men der Übergabe bezeichnet man den 
Aufruf mit Wertparametern als »call by 
value« und den Aufruf mit Variablenpa¬ 
rametern als »call by reference«. 

Zu diesem Themengebiet der »Tech¬ 
nik hinter den Kulissen« gehört auch die 
Verwaltung des Speichers bei einem 
Pascal-Rechner. Neben den (statisti¬ 
schen) Sichtbarkeitsregeln für die 
Namen von Variablen, muß auch die 
(dynamische) Gültigkeit der Werte von 
Variablen Beachtung finden. 

Beim Eintritt in einen Block ist der 
Wert jeder Variablen, die nicht Parame¬ 
ter einer Prozedur oder Funktion ist, 
Undefiniert. 

So ist zum Beispiel am Programman¬ 
fang jede Variable unbestimmt. Sie 
besitzt also nicht etwa wie in Basic den 
Wert Null. Bei jedem neuen Aufruf einer 
Prozedur verhält es sich mit allen loka¬ 
len Variablen bis auf die Parameter 
ebenso. Man kann also nicht davon aus¬ 
gehen, daß die Variablen die Werte 
ihres letzten Aufrufes beibehalten. 

Vielleicht interessiert es Sie, die Hin¬ 
tergründe dieser Regel zu erfahren. Bei 
der Übersetzung eines Pascal-Pro¬ 
gramms bestimmt der Compiler für jede 
Prozedur den Speicherplatzbedarf für 


alle lokalen Variablen. Innerhalb dieses 
Speichers weist er jeder Variablen eine 
feste Position zu. Jedoch bleibt die 
absolute Lage des Speicherblockes im 
Computer unbestimmt. 

Erst während der Ausführung wird 
beim Aufruf jeder Prozedur der Spei¬ 
cherblock für die lokalen Variablen 
reserviert. Umgekehrt wird beim Ende 
der Ausführung einer Prozedur ihr 
gesamter Speicherblock wieder freige¬ 
geben. Unterprogramme haben aber 
bekanntlich die Eigenschaft, das zuletzt 
aufgerufene Unterprogramm als erstes 
wieder zu verlassen. Ein Beispiel: 

A ruft B 

B ruft C 
C ruft D 

D kehrt zurück zu C 
C kehrt zurück zu B 

B kehrt zurück zu A 
Ende von A 

Deshalb werden die Variablen eines 
Pascal-Programms auf einem Stack 
(Stapelspeicher) verwaltet. 

Betrachten wir das Programm in 
Listing 7. Es besteht aus zwei Prozedu¬ 
ren, die in verschiedener Reihenfolge 
aufgerufen werden (ansonsten aber 
nicht viel Sinnvolles erledigen). Wir wol¬ 
len nun nach jedem Schritt einen Blick 
auf den Speicher des Rechners werfen 
(Bild 3): 

Zu Programmbeginn (1) ist der ge¬ 
samte Speicher frei. Beim Eintritt in das 
Hauptprogramm wird zunächst Platz für 
die Variable M des Hauptprogramms 
geschaffen (2). Nun erfolgt der Aufruf 
der Prozedur PI, die ihrerseits Platz für 
die Variable LI benötigt (3). Nach der 
Rückkehr aus PI kann dieser Platz 
sofort wieder freigegeben werden (4). 
Der Aufruf P2(FALSE) erfolgt in densel¬ 
ben Schritten (5 und 6), wobei jedoch 
Platz für zwei Variablen (L2 und auch 
PI) benötigt wird. 















Sie sehen schon jetzt, daß derselbe 
Speicherplatz sowohl für die Variablen 
von PI als auch von P2 verwendet wird. 
Beim Aufruf von P2(TRUE) (7), ergibt 
sich zunächst der Zustand von (5), je¬ 
doch wird außerdem in P2 noch PI auf¬ 
gerufen, so daß sich schließlich eine 
Speicherverteilung wie in (8) ergibt. 
Offensichtlich liegt beim zweiten Aufruf 
von PI die Variable L2 an einer anderen 
absoluten Adresse. Bei der Rückkehr 
aus P1(9) und P2(10) werden wieder 
die lokalen Variablenbereiche freige¬ 
geben. 

Der Stack »wächst« also von unten 
nach oben und nimmt von dort wieder 
nach unten ab, wobei er immer einen 
zusammenhängenden Speicherbereich 
bildet. Daß Ihr Rechner zur Laufzeit der 
Programme einen Stack verwaltet, mer¬ 
ken Sie spätestens dann, falls bei einem 
Prozeduraufruf kein Platz mehr für die 
lokalen Variablen vorhanden ist. Das 
quittiert das Programm gewöhnlich mit 
der Fehlermeldung »stack overflow«. 

Funktionen 

Inzwischen sind Sie mehrmals auf die 
Formulierung »Prozedur« oder »Funk¬ 
tion« gestoßen, ohne daß Sie Näheres 
über Funktionen in Pascal erfahren 
haben. Eine Funktion ist eine spezielle 
Form einer Prozedur, die zusätzlich 
noch einen Wert als Ergebnis liefert. In 
der Mathematik gibt es zum Beispiel die 
Maximumfunktion, die das Maximum 
von zwei Zahlen liefert, so daß gilt: 
max (3,4) = 4 
3 + max( 0,-7) = 3 

Man kann also das Ergebnis der 
Funktion auch in arithmetischen Aus¬ 
drücken verwenden. All diese Möglich¬ 
keiten gelten bei der Verwendung von 
Funktionen in Pascal, die einige Stan¬ 
dardfunktionen der Mathematik nach¬ 
bilden. Dabei verbirgt sich unter der 
Funktion HOCH (Listing 8) die in Pascal 
standardmäßig nicht vorhandene Me¬ 
thode, um A hoch B für beliebige Zahlen 
zu berechnen. 

Bei der Definition unterscheidet sich 
eine Funktion von einer Prozedur nur 
durch den Funktionskopf. Hier ersetzt 
das Schlüsselwort FUNCTION das 
Wortsymbol PROCEDURE. Außerdem 
wird zusätzlich am Ende der (eventuell 
leeren) Parameterliste nach einem Dop¬ 
pelpunkt der Name des Typs angege¬ 
ben, zu dem das Ergebnis der Funktion 
gehört. Somit lautet der Funktionskopf 
der Funktion MAX, die das (reelle) Maxi¬ 
mum zweier reeller Zahlen berechnet, 
folgendermaßen: 

FUNCTION MAX (A,B: REAL): REAL; 

Der Ergebnistyp darf kein zusam- 
mengesetzer Typ, wie zum Beispiel 
eine Menge oder ein Array, sein. Um 
innerhalb der Funktion das Ergebnis zu 


bestimmen, verwendet man den Funk¬ 
tionsnamen in einer Zuweisung: 

IF A>B THEN 
MAX:=A 
ELSE 
MAX:=B 

Natürlich muß auf jeden Fall innerhalb 
einer Funktion eine solche Zuweisung 
stattfinden, damit die Funktion bei der 
Rückkehr einen definierten Wert liefert. 
Funktionsaufrufe sind nur innerhalb von 
Ausdrücken zulässig, während Proze¬ 
duraufrufe syntaktisch gesehen Anwei¬ 
sungen sind. 

IF MAX(A,B) >4 THEN ... 

A := MAX(A,B); 

MIN:= -MAX(-A,-B) 

Jetzt folgt eine kleine Sammlung von 
Prozeduren und Funktionen, die Ihnen 
die Programmierung typischer Opera¬ 
tionen mit Arrays zeigt. Die erste Proze¬ 
dur in Listing 9 sortiert den Inhalt des 
Arrays in A, das als Parameter überge¬ 
ben wird. Durch die Wahl von SORT- 
TYPE = INTEGER könnten Sie diese 
Prozedur auch zum Sortieren ganzer 
Zahlen (oder jedes anderen Typs) ver¬ 
wenden. Das Sortierverfahren ist eines 
der einfachsten und langsamsten über¬ 
haupt. Bei jedem Durchlauf der äußeren 
FOR-Schleife wird jeweils ein Wert im 
Array an seine korrekte Position 
gebracht und dazu in der inneren 
Schleife der maximale Wert im Restar- 
ray bestimmt. Somit wird im ersten 
Durchlauf die größte Zahl mit der Zahl an 
der letzten Arrayposition vertauscht. Im 
nächsten Durchlauf wechselt die zweit¬ 
größte Zahl mit der vorletzten Arraypo¬ 
sition den Platz, bis im letzten Durchlauf 
der kleinste Wert an der ersten Position 
landet. 

Eine etwas exotischere Prozedur 
stellt Listing 10 vor. Hier wird der Kehr¬ 
wert des ganzzahligen Parameters I 
exakt gedruckt. Bei periodischen Brü¬ 
chen erscheint ein Pfeil am Beginn der 
Periode. 



Bild 2. Statische Schachtelung 
von Prozeduren 


PROGRAN SPEICHERPLATZ (INPUT, OUTPUT) 
VAR M: REAL; 

PROCEDURE PI; 

VAR LI: INTEGER; 

BEGIN 

NRITELN C PROZEDUR PI MIT LI -• , 
LI) ; 

END; <« PI *> 


PROCEDURE P2 (AUCHP1 : BOOLEAN); 

VAR L2: REAL; 

BEGIN 

NRITELN! • PROZEDUR P2 MIT L2 *• 

L2) ; 

IF AUCHP1 THEN PI; 

END; ( * P2 *> 


BEGIN 
PI; 

P2 ( FALSE); 

P2 ( TRUE) 

END. 

Listing 7. Beispielprogramm zur Spei¬ 
cherorganisation (vergleiche Bild 3). 



Speicherblöcke 


Hauptprogramm 


Prozedur 2 


Prozedur 1 


Bild 3. Diagramm zur dynamischen Speicherorganisation (siehe Text) 












1/3 = 0. 13 

1/12 = 0 . 08'3 

1/17 = 0.10588235294117647 

Wie findet man aber den Anfang (und 
damit auch das Ende) der Periode? 
Zunächst erinnern wir uns an die Rech¬ 
nung mit Brüchen aus der Schule: 

1.000000 17 = 0. 1142857 
1 0 

30 

20 

60 

40 

50 

10 

Beginnend mit dem REST 1 multipli¬ 
ziert man immer 10 und dividiert das 
Produkt wieder durch I. Der ganzzah¬ 
lige Anteil REST DIVI ist die nächste Zif¬ 
fer des Ergebnisses, während der Divi¬ 
sionsrest REST MOD I den REST für 
den nächsten Divisionsschritt bildet. 

Die Periode endet genau dann, wenn 
der REST bereits früher einmal in der 
Berechnung (nicht unbedingt als erster, 
siehe 1/12!)aufgetreten ist. Daher spei¬ 
chert die Prozedur alle Ziffern in einem 
Array ZIFFERN und für jeden Rest R 
den Index der zugehörigen Ziffern in 
dem Array INDEX. Wird dabei festge¬ 
stellt, daß dieser INDEX ungleich 0 ist, 
also dieser Rest bereits einmal auftrat, 
so ist die gesamte Periode bekannt, und 
das Ergebnis kann anschließend ge¬ 
druckt werden. Probieren Sie es doch 
einmal mit 1/29! 

Zum Verständnis der Prozedur Listing 
11 benötigen Sie noch Kenntnisse über 
die Stringbehandlung in Pascal. Bisher 
wurden in allen Beispielprogrammen 
nur einzelne Zeichen, also Werte vom 
Typ CHAR, verwendet. Möchte man 
jedoch Worte, Zeilen oder Sätze, die 
aus einer Folge von Zeichen bestehen, 
verarbeiten, so muß man ein Array aus 
Zeichen definieren. 

CONST TEXT= 1 Otto Anna'; 

TYPE STRING = ARRAY [1..9] 

OF CHAR; 

VAR WORT : STRING; 

ZEILE: ARRAY [1.80] 

OF CHAR; 

Text ist eine Konstante mit dem Typ 
ARRAY [1..9] OF CHAR, da sie aus 
neun Zeichen besteht. Denselben Typ 
besitzt die Variable Wort. Die Variable 
Zeile umfaßt 80 einzelne Zeichen. 
Wichtig ist jetzt die Tatsache, daß jedem 
String eine feste Länge zugeordnet ist. 
Es ist also nicht möglich, in Wort nur vier 
Zeichen zu speichern, man muß viel¬ 
mehr den Rest des Strings zum Beispiel 
mit Leerzeichen füllen: 

WORT: = 'ANNA_'; (korrekt) 

WORT: = 'ANNA'; (falsch) 

WORT: = TEXT; (korrekt) 

WORT: = ZEILE; (falsch) 

Zeile := WORT; (ebenfalls 

falsch!) 


FUNCTION SIGNUM (X: REAL): INTEGER; 

(* Vorzeichen: 0, -1 oder +1 *) 

BEGIN 

IF X>0 THEN SIGNUM: - 1 
ELSE 

IP X<0 THEN SIGNUM: - -1 
ELSE SIGNUM: * 0 
END; (* SIGNUM *) 

FUNCTION HOCH ( X, Y: REAL) : REAL; 

(* ERGEBNIS IST X * Y *) 

BEGIN 

HOCH: - EXP( Y * L0G( X) ) ; 

END; ( * HOCH *) 

FUNCTION FAKULTAET ( N: INTEGER): REAL; 
<* ERGEBNIS IST N! «1*2*3*4* 
. . . * N *) 

VAR P: REAL; 

I: INTEGER; 

BEGIN 

P: - 1.0; 

FOR I: * 2 TO N DO P: - P * I 
FAKULTAET:= P 
END; (* FAKULTAET *) 

GEOMETRISCHES_MITTEL( A, B: REAL): REAL; 
BEGIN 

GEOMETRISCHES_MITTEL: * SQRT( A*B) 
END; 

ARITHMETISCHES_MITTEL( A, B,C: REAL): 
REAL; BEGIN 

ARITHMETISCHES_MITTEL: * 

( A ♦ B ♦ C) / 3 
END; 

Listing 8. Einige Beispiele für 
Funktionen in Pascal 


Zuweisungen sind also nur zwischen 
Strings gleicher Länge möglich, da 
weder überflüssige Zeichen abge¬ 
schnitten noch zu kurze Strings mit 
Leerzeichen erweitert werden. Ande¬ 
rerseits kann man jedoch auch Strings 
gleicher Länge miteinander verglei¬ 
chen. Dabei bestimmt das Ergebnis des 
Vergleiches den zugrundeliegenden 
Zeichensatz. Im ASCII-Code gilt bei¬ 
spielsweise 
'ALPHA' <'BETA ' 

'ALPHA' <’alpha' 

'ALP ' <'ALPHA' 

Die hier gemachten Einschränkun¬ 
gen gelten für Standard-Pascal. Für 
Turbo-Pascal und andere Compiler gel¬ 
ten sie nicht. 

Die Funktion POSITION in Listing 11 
liefert die Position von Wort in der 
Tabelle TAB. Diese Tabelle soll aufstei¬ 



gend mit Strings gefüllt sein. Aus der 
Funktion resultiert der Wert 0, falls Wort 
nicht in TAB enthalten ist. 

Falls Sie einmal ein Programm schrei¬ 
ben möchten, das Ihnen alle Namen in 
einem Pascal-Programm ausdruckt, so 
müssen Sie zunächst alle Schlüssel¬ 
worte erkennen. Hierzu könnten Sie die 
Funktion POSITION verwenden. In TAB 
werden alle Schlüsselworte in alphabe¬ 
tischer Reihenfolge eingetragen (AND, 
ARRAY, BEGIN,...). Dann ergeben sich 
folgende Funktionsergebnisse: 

POSITION('AND ',TAB) = 1 

P0SITI0N('BEGIN ',TAB) = 3 

P0SITI0N('WITH ',TAB) = 39 

P0SITI0N('WIRSING ',TAB) = 0 

Obwohl die Funktion etwas kompli¬ 
zierter aussieht, arbeitet sie für große 
Arrays wesentlich schneller als die ein¬ 
fache Version aus Listing 12, die das 
Array schrittweise von hinten nach 
vorne durchsucht. Statt dessen ver¬ 
wendet die erste Funktion zwei Zeiger 
R und L auf den rechten und linken 
Rand des Teilarrays, in dem sich der 
gesuchte Wert befinden muß. In jedem 
Schritt wird nun der Mittelpunkt M des 
Intervalls untersucht. Steht an dieser 
Stelle ein Wort, das größer als das 
Suchwort ist, so liegt das Suchwort im 
Intervall L bis M-1, ansonsten muß es im 
Interval M + 1 bis R zu finden sein. Die 
Suche ist beendet, falls die Zeiger L und 
R sich überschneiden. Offensichtlich 
wird in jedem Schritt das Array halbiert, 
was den Geschwindigkeitsvorteil 
gegenüber Listing 12 ausmacht. 

Noch ein Wort zu der linearen Suche 
in Listing 12: Warum wurde nicht ein¬ 
fach die Schleife 

I:= ANZAHL; 

WHILE (WORT < >TAB[I] AND 
(I < >0) DO I :=I-1; 

POSITION:= I 

verwendet? Ist in diesem Fall Wort nicht 
in TAB vorhanden, so ist im letzten 
Schleifendurchlauf 1=0, was im ersten 
Teil der WHILE-Bedingung einen Zugriff 
auf das (nicht existierende) Element 
TAB[0] zur Folge hat. Normalerweise 
erkennt ein Pascal-Laufzeitsystem sol¬ 
che Indizierungsfehler und gibt dann 
eine Fehlermeldung aus. 

Rekursion 

Das letzte Programm in Listing 13 ist 
ein besonders schönes Beispiel für 
eine sehr nützliche Eigenschaft von 
Prozeduren und Funktionen in Pascal. 
Falls Sie sich an die Ausführungen über 
die Speicherverwaltung erinnern, wis¬ 
sen Sie noch, daß bei jedem Prozedur¬ 
aufruf neuer Speicherplatz für die loka¬ 
len Variablen bereitgestellt wird. Des- 













BEGIN 

IF I> MAXI MAL THEH WRITELN( 'DIE ZAHL IST ZU GROSS!’) 

ELSE 

BEGIN 

WRITE( * 1 / • , I, • - 0. • ); 

(* NOCH IST KEIN REST AUFGETRETEN, DESHALB INDEX LOESCHEN: *) 
FOR J: * 0 TO 1-1 DO 
INDEXI J] : * 0; 


K :- 0; (* DIE ER5 

REST: - 1 ; ( * WIR BEF 

REPEAT 

K: * K+ 1 ; INDEXI REST) : - 
REST:* ZEHN * REST; 
ZIFFER! Kl : = REST DIV I; 
REST : * REST MOD I; 

UNTIL INDEXI REST) < >0; 


(* DIE ERSTE ZIFFER WIRD BERECHNET *) 
( * WIR BERECHNEN 1/1 *) 


<* BIS DIESER REST SCHON EINMAL BERECHNET *) 


<* JETZT NOCH DAS ERGEBNIS DRUCKEN, INDEXIREM) IST DIE POSITION DER 
<* ERSTEN ZIFFER IN DER PERIODE 
FOR J: = 1 TO INDEXIREST)-1 DO 

WRITEI CHR( ZIFFERI J) +ORDI ’ 0’ ) ) ) ; 

WRITEI 

FOR J:-INDEXIREST) TO K DO 

WRITEI CHRI ZIFFERI J) +ORDI ’ 0' ) ) ) ; 

WRITELN 

END; 

END; (* KEHRWERT *) 

PROCEDURE KEHRWERT (I: INTEGER); 

(* DRUCKE DEN EXAKTEN KEHRWERT DER ZAHL I MIT ANGABE DER PERIODE *) 


CONST ZEHN = 10; 

MAXIMAL = 300; 


(* BASIS DES DEZIMALSYSTEMS *) 

<* MAXIMALE GROESSE FUER I UND DIVISIONSREST *) 


VAR J,K 
REST 


INTEGER; 

INTEGER;!* LAUFENDER DIVISIONSREST BEI STELLE K 


ZIFFER : ARRAYI 1 . . MAXI MAL) OF INTEGER; 
INDEX : ARRAYl 0. . MAXI MAL) OF INTEGER; 

Listing 10. Exakte Berechnung des Kehrwertes 


CONST ANZAHL - 30; 


(* LAENGE DER SUCH-TABELLE 


TYPE STRING * ARRAYl 1 .. 11) OF CHAR; (* LÄNGE EINES WORTES « 11 ZEICHEN *) 
TABELLE* ARRAYl 1 .. ANZAHL) OF STRING; 

FUNCTION POSITION (WORT: STRING; VAR TAB: TABELLE); 

TAB MUSS AUFSTEIGEND ALPHABETISCH SORTIERT SEIN. DAS ERGEBNIS DER *) 
FUNKTION IST DIE POSITION VON WORT IN TAB BZW. 0, FALLS WORT NICHT *) 
(* IN TAB STEHT. 

VAR L, R, M: INTEGER; 


BEGIN 

L: -1; R: -ANZAHL; 

REPEAT 

M: = ( L + R) DIV 2; 

IF WORT< -TABt M) THEN R: « M 
IF WORT> »TABI Ml THEN L: » M 
UNTIL L> R; 

IF L> R*1 THEN POSITION: -R +1 ; 

ELSE POSITION: -0 
END; ( * POSITION *) 


MITTELPUNKT DES INTERVALLS L. . R * 
WORT LIEGT LINKS VON DER MITTE * 
WORT LIEGT RECHTS VON DER MITTE * 
BIS ZEIGERKOLLISION * 
WORT GEFUNDEN * 
WORT NICHT VORHANDEN * 


Listing 11. Binäre Suche 


PROCEDURE POSITION (WORT: STRING; VAR TAB: TABELLE); 

(* EINFACHE LINEARE SUCHE NACH WORT IN TAB. TAB MUSS NICHT SORTIERT SEIN *) 
VAR I: INTEGER; 


BEGI N 

I: -ANZAHL; 

WHILE ( TABI I) <> WORT) AND (Iol) DO I.-I-1; 
IF TABI I)-WORT THEN POSITION: -I 
ELSE POSITION: -0 
END; ( * POSITION *) 

Listing 12. Lineare Suche 


halb kann sich eine Prozedur auch 
selbst aufrufen, ohne daß dadurch der 
Inhalt der lokalen Variablen zerstört 
würde. Den Selbstaufruf einer Prozedur 
oder Funktion nennt man Rekursion. 
Das Programm in Listing 13 verwendet 
nun eine rekursive Prozedur PRO¬ 
BIERE_ZEILE, um das »Problem der 

acht Damen« zu lösen. 

Die Aufgabe besteht darin, acht Köni¬ 
ginnen, die nach den Schachregeln alle 
Figuren in ihrer Zeile und Spalte sowie 
in beiden Diagonalen bedrohen, so auf 
ein Schachbrett zu setzen, daß keine 
Figur eine andere bedroht. Bild 4 zeigt 
die Felder, die eine Dame angreift, wäh¬ 
rend Bild 5 eine zulässige Lösung zeigt. 

Die Lösung stellt ein sogenannter 
Backtracking Algorithmus. Hierbei pro¬ 
biert man eine Reihe von Schritten aus, 
bis man feststellt, daß dieser Weg in 
eine Sackgasse führt. In diesem 
Moment beginnt man die letzte Ent¬ 
scheidung rückgängig zu machen und 
einen neuen Weg zur Lösung zu finden. 
Indem man systematisch alle möglichen 
Kombinationen durchsucht, wird auf 
jeden Fall eine Lösung (sofern vorhan¬ 
den) gefunden. 

In diesem konkreten Beispiel positio¬ 
niert man zunächst eine Dame an eine 
zulässige Stelle der ersten Zeile. Dabei 
wird notiert, welche Diagonalen und 
welche Spalte die Dame bedroht. An¬ 
schließend wird in der zweiten Reihe 
eine ungefährdete Position gesucht, 
die die zweite Dame besetzt. Diese Pro¬ 
zedur wiederholt sich so lange, bis die 
achte Zeile belegt und die Lösung 
gefunden ist. Im Normalfall ist natürlich 
bereits in der dritten oder vierten Zeile 
jedes Feld gefährdet, so daß die Suche 
in eine Sackgasse führt. Dann wird die 
Dame von ihrem Feld wieder entfernt 
und in der letzten Reihe die Dame auf 
das nächste freie Feld gesetzt. Mit die¬ 
ser Strategie erhält man alle 92 Lösun¬ 
gen auf einem 8 x 8-Brett. 

Das größte Problem besteht darin, 
möglichst schnell zu testen, ob eine 
Diagonale oder eine Spalte bereits 
belegt ist. Deshalb werden drei boole¬ 
sche Arrays geführt, die für jede Diago¬ 
nale und Spalte den Wert TRUE enthal¬ 
ten, falls diese nicht bedroht ist. Natür¬ 
lich muß die Information in diesem Array 
am Programmanfang gelöscht und bei 
jedem Zug und jeder Zugrücknahme 
aktualisiert werden. Bild 6 zeigt, wie 
man aus dem Zeilen- und Spaltenindex 
l.J die Nummer der jeweiligen Diagona¬ 
len durch Addition und Subtraktion 
erhält. 

Bisher wurde nur das Array als 
zusammengesetzter Typ verwendet. 
Durch die Flexibilität bei der Wahl des 
Indextyps und des Typs der Elemente 
konnten sehr verschiedenartige Pro¬ 
bleme behandelt werden. Bevor wir uns 


weiteren Datentypen in Pascal zuwen¬ 
den, kommen noch zwei weitere Eigen¬ 
schaften von Arrays zur Sprache. 

1. Man kann auch das Array als Gan¬ 
zes in einer Zuweisung verwenden, falls 
auf der rechten und linken Seite des 
Zuweisungsoperators je ein Array des¬ 
selben Typs steht: 


VAR A,B: ARRAY[1..100] OF REAL; 
A:=B; 

Mit dieser Zuweisung werden also 
100 reelle Zahlen aus dem Array B in 
das Array A kopiert. Somit enthält diese 
allgemeine Regel die oben genannten 
Bedingungen, unter denen eine Zuwei¬ 
sung zwischen Strings zulässig ist. 













2. Arrays können als Elemente nicht 
nur einfache, sondern auch zusammen¬ 
gesetzte Typen enthalten. Wiederum 
hatten wir diese Tatsache bereits bei 
der Besprechung der Strings vorweg¬ 
genommen, als wir definierten: 

TYPE STRING = ARRAY[l..ll] 

OF CHAR; 

TABELLE= ARRAY[1..ANZAHL] 

OF STRING; 

Ist der Elementtyp ein Array, so 
spricht man oft auch von mehrdimen¬ 
sionalen Arrays. In diesen Fällen kann 
man auch eine vereinfachte Notation 
verwenden. Statt 
VAR A,B: ARRAY [1..N] OF 

ARRAY [1..M] OF 

ARRAY [1..K] OF REAL; 
A[l] [1] [1] := B[2][3][4] 
schreibt man dann: 

VAR A,B: ARRAY[1..N,l..M,l..K] 

OF REAL; 

A[l,l]:-B[2,3,4] 

Bei der Arbeit mit solchen mehrdi¬ 
mensionalen Tabellen verwendet man 
sehr häufig Ausschnittstypen. Betrach¬ 
ten Sie zum Beispiel (Bild 7), das eine 
zweidimensionale Tabelle mit Umsatz¬ 
zahlen (Millionen DM ?) für fünf Jahre 
mit jeweils zwölf Monaten enthält. Das 
kann man schreiben als: 

TYPE MONAT = 1..12; 

JAHR = 1980..1985; 

VAR UMSATZTABELLE = ARRAY 
[JAHR,MONAT] 

OF REAL; 

M : MONAT; 

J : JAHR; 

Die Variablen M und J besitzen die 
Ausschnittstypen MONAT und JAHR 
und können daher nur die Werte 1 bis 
12 oder 1980 bis 1985 annehmen. Sie 
eignen sich also hervorragend als Zei¬ 
ger in die zweidimensionale Tabelle. 
Jede Zuweisung an eine Variable eines 
Ausschnittstyps wird zur Laufzeit auf 
gültige Werte geprüft, so daß bei fol¬ 
genden Anweisungen das Programm 
mit einer Fehlermeldung endet: 

J:= 12; M:= 1985 

Einmal schützt also der Compiler vor 
irrtümlichen Zuweisungen. Listing 14 
zeigt drei Funktionen, die in solchen 
Umsatztabellen Zeilen-, und Spalten-, 
oder Gesamtsummen berechnen. Das 
Hauptprogramm verwendet diese Funk¬ 
tionen für die Ermittlung von Umsätzen 
für zwei Produkte (Farben und Lacke). 

Allgemein kann man von jedem skala¬ 
ren Typ Ausschnittstypen bilden: 

TYPE BUCHSTABEN = 'A *.. 1 Z'; 

ZIFFERN = ’0'..'9'; 

Eine Variable eines Ausschnittstyps 
kann überall dort verwendet werden, 
wo auch eine Variable des zugehörigen 
Grundtyps (INTEGER oder CHAR) ste¬ 
hen kann. Unter Umständen kann die 
Verwendung von Ausschnittstypen 
(zum Beispiel als Elementtyp in großen 




Arrays) bei einigen Compilern auch 
Speicherplatz einsparen. Mit der 
Kenntnis, daß die Variable JAHR nur die 
Werte 1980 bis 1985 annnimmt, 
genügt 1 Byte zur Speicherung des 
Wertes (statt 2 oder 4 Byte für die nor¬ 
malen INTEGER-Zahlen). 

Eigene Datentypen 
definieren 

Eine andere Methode, neue Typen zu 
definieren, besteht darin, daß man alle 
Werte aufzählt, die dieser Typ annimmt: 

TYPE AMPEL = (ROT, GELB, GRUEN); 

FAMILIENSTAND = (LEDIG, 

VERHEIRATET, 
GETRENNT, 
GESCHIEDEN, 
VERWITWET); 

FIGUR = (BAUER, 

LAEUFER, 
SPRINGER, 
TURM, 

DAME, 

KOENIG); 

FARBE = (SCHWARZ, 

WEISS); 

Diese Typen nennt man Aufzählungs¬ 
typen. Formal gesehen sind zum Bei¬ 
spiel ROT und KOENIG Konstanten des 


jeweiligen Typs. Durch die Reihenfolge 
bei der Typendeklaration wird eine Ord¬ 
nung auf den Konstanten definiert: 

ORD(ROT) = 0 
ORD(GELB) = 1 
ORD(GRUEN) = 2 

Somit sind auch Vergleiche zwischen 
Variablen eines Aufzählungstyps sinn¬ 
voll: 

VAR HAUPTAMPEL : AMPEL; 

IF HAUPTAMPEL <£ GELB THEN ... 

Um den Nachfolger und Vorgänger im 
Wertebereich zu erhalten, gibt es die 
Funktionen PRED (predecessor) und 
SUCC (successor): 

SUCC(ROT) = GELB 
SUCC(LAEUFER) = SPRINGER 
PRED(VERHEIRATET) = LEDIG 
PRED(WEISS) = SCHWARZ 
ORD, SUCC und PRED sind übrigens 
für jeden skalaren Typ zulässig, da alle 
skalaren Typen geordnet sind: 
0RD(FALSE)=0 
SUCC(FALSE)=TRUE 
SUCC('A') = 'B' 

PRED(O) = -1 

Viele hoffnungsvolle Programme von 
Anfängern enthalten direkte Ein- und 
Ausgabeanweisungen für Werte von 
Aufzählungstypen: 

WRITE (HAUPTAMPEL); 

READ (HAUPTAMPEL); 












































PROGRAM ACHT.DAMEN < I NPUT,OUTPUT); 

CONST N - 0; <* ACHT DAMEN AUF EINEM 8*8 SCHACHBRETT *) 

N2 «16; ( * « 2 * N *) 

"AR DAME : ARRAY I 1 . . Ni OF INTEGER; 

SPALTE.FREI: ARRAY ( 1 . . NI OF BOOLEAN; 

DIAG1.FREI : ARRAY t2.. N2] OF BOOLEAN; 

DIAG2 _FREI : ARRAY [ -N. . NJ OF BOOLEAN; 

LOESUNG : INTEGER; 

I : INTEGER; 

PROCEDURE DRUCKELOESUNG; 

(* ZEIGE DIE POSITION DER DAMEN AN, ERHÖHE DEN ZÄHLER FÜR DIE LÖSUNGEN *> 
VAR ZEILE, SPALTE: INTEGER; 

BEGIN 

LOESUNG:« LOESUNG ♦ 1; 

WRITELN; WRITELN; WRITELN(* LÖSUNG* , LOESUNG: 2, *:*); 

FOR ZEILE: *1 TO N DO 
BEGIN 

FOR SPALTE:«1 TO N DO 

IF SPALTE » DAMEl ZEILE! THEN WRITEC*' ) 

ELSE WRITE(* ♦* ) ; 

WRITELN; 

END; 

END; ( * DRUCKELOESUNG *) 

PROCEDURE SETZ E _Z EILE(I: INTEGER); 

(* SUCHE FREIE POSITION FÜR DAME IN ZEILE I. FALLS EIN PLATZ GEFUNDEN *) 
<* WURDE, WIRD EINE DAME IN ZEILE 1+1 GESETZT ODER DIE VOLLSTAENDIGE *) 
<* STELLUNG ANGEZEIGT. SONST ERFOLGT EIN RUECKSPRUNG. *> 

VAR J: INTEGER; 

BEGIN 

FOR J:= 1 TO N DO 

IF SPALTE_FREItJJ AND DIAG1.FREI(I+J] AND DIAG2.FREIIJ-I) THEN 
BEGIN <* HIER KANN JETZT DIE DAME GESETZT WERDEN: *) 

DAME! II : « J; 

SPALTE.FREI I J) : » FALSE; 

DIAG1.FREI lI+ J): = FALSE; 

DIAG2.FREI t J -11: = FALSE; 

IF I *N THEN (* ALLE DAMEN GESETZT, LÖSUNG DRUCKEN! *) 
DRUCKELOESUNG 

ELSE (* IN DER NÄCHSTEN ZEILE WEITERSUCHEN *> 

SETZ E_Z EILE(1+1); 

<* JETZT DEN LETZEN ZUG RÜCKGÄNGIG MACHEN: *) 

SPALTE_FREI IJJ :« TRUE; 

DIAG1.FREI l I♦JJ: « TRUE; 

DIAG2.FREI IJ-IJ:« TRUE; 

END; 

END; ( * SETZ E.Z EI LE *) 

BEGIN 

(* SPIELBRETT IST NOCH LEER: *) 


POR 

I 

* 1 

TO 

8 

DO 

SP ALTE.FREI 

( I) 

« TRUE; 

FOR 

I 

» 2 

TO 

N2 

DO 

DIAG1.FREI 

[ IJ 

« TRUE; 

POR 

I 

= - N 

TO 

N 

DO 

DIAG2.FREI 

[ I) 

- TRUE; 


LOESUNG:» 0; 

SETZ E _Z EILE( 1); 

END. 

Listing 13. Das Acht-Damen-Problem, ein Beispiel für einen 
rekursiven Algorithmus. 
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Bild 7. Darstellung von Jahresumsätzen als Beispiel 


Diese Anweisungen sind falsch! Nur 
während der Übersetzung sind dem 
Compiler die Namen der Werte des 
Typs bekannt. Zum Zeitpunkt der Aus¬ 
führung sind alle Aufzählungstypen 
durch Zahlen ohne Verweise auf irgend¬ 
welche Namen codiert. Man muß also 
die Umwandlung zwischen dem Auf¬ 
zählungstyp und dem auszugebenden 
Namen selbst vornehmen: 

PROCEDURE DRUCKE_AMPEL(A:AMPEL); 
BEGIN 

WRITE( f Die Ampel zeigt); 

CASE A OF 

ROT : WRITELN(» rot 1 ); 

GELB : WRITELN(»gelb'); 

GRUEN: WRITELN('grün r ); 

END; 

END; (* DRUCKE_AMPEL *) 

Natürlich können auch Auschnittsty- 
pen von Aufzählungstypen gebildet 
werden: 

TYPE ENDSPIELFIGUR = 

LAEUFER..KOENIG; 

Mit den Aufzählungstypen lernen Sie 
den letzten skalaren Typen in Pascal 
kennen. Alle weiteren Typen, die den 
Rest des Artikels einnehmen, sind 
zusammengesetzte Typen wie das 
Array. Mengen von Zahlen sind Ihnen 
sicher bekannt. Um einen Mengentyp 
zu deklarieren, verwendet man die 
Wortsymbole SET und OF, denen ein 
skalarer Typ folgen muß: 

TYPE FIGUREN = SET OF FIGUR; 

VAR MEINE, DEINE: FIGUREN; 

Mit den Mengen-Variablen MEINE 
und DEINE kann man beispielsweise 
über die geschlagenen Figuren führen. 
Am Spielbeginn gilt: 

MEINE:= [BAUER...KOENIG]; 

DEINE:= MEINE; 

IF [TURM,DAME,KOENIG]< 

=MEINE THEN... 

Mit dieser Abfrage wird also getestet, 
ob ein Spieler noch Turm, Dame und 
König besitzt. Da eine Menge jedes Ele¬ 
ment nur einmal oder keinmal enthält, 
werden Mengen überall dort verwen¬ 
det, wo das Vorhandensein einer 
gewissen Eigenschaft signalisiert wer¬ 
den soll. 

Arrays und Mengen fassen mehrere 
Werte eines Typs zu einem Zusammen¬ 
gesetzen Typ zusammen. Besonders in 
großen Programmen ist es jedoch auch 
sinnvoll, Werte verschiedener Typen zu 
einer Einheit zu verbinden. Zur Kon¬ 
struktion solcher Typen verwendet man 
in Pascal Recordtypen (Verbundtypen): 
TYPE POSITION = RECORD 

X,Y: REAL; 

END; 

ADRESSE = RECORD 

NAME, VORNAME: STRING; 

ORT, STRASSE : STRING; 
HAUSNUMMER : INTEGER; 

PLZ : INTEGER; 

END; 


VAR P1,P2 : POSITION; 

ADR : ADRESSE; 

Nach einer solchen Deklaration 
bezeichnet man PI, P2 und ADR als 
Records. Ein Record besitzt einzelne 
Felder, auf die man durch Angabe ihres 
Namens nach einem Punkt zugreift: 
P1.X:= 30; 


P1.Y:= 40; 

ADR.ORT := »MONOPOLY 1 ; 

ADR.STRASSE:= 'Schloßallee'; 

ADR.HAUSNR := 4; 

Andererseits kann man aber auch 
den Record als Ganzes ansprechen: 

PI:= P2 

Durch diese Zuweisung werden alle 
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PROGRAM UMSAETZE ( INPUT, OUTPUT); 

TYPE MONAT - 1..12; 

JAHR » 1980..1905; 

UMSATZTABELLE: ARRAY [JAHR,MONAT) OF REAL; 

VAR FARBEN, LACKE: UMSATZTABELLE; 

FUNCTION JAHRESSUMME! J: JAHR; VAR T: UMSATZ TABELLE): REAL; 
(* BERECHNE DIE SUMME DER MONATSUMSÄTZE IM JAHR * IN DER 
TABELLE T: *) 

VAR M: MONAT; 

S: REAL; 

BEGIN 

S: - 0; 

POR M: - 1 TO 12 DO S: - S ♦ Tt J, M) ; 

JAHRESSUMME: - S 
END; (* JAHRESSUMME *) 

FUNCTION MONATSSUMME( M: MONAT; VAR T: UMSATZTABELLE): REAL; 
(* BERECHNE DIE SUMME ALLER UMSÄTZE IM MONAT M FÜR 1980 
BIS 1985 *) 

VAR J: JAHR; 

S: REAL; 

Listing 14. Bearbeitung zweidimensionaler Tabellen 


BEGIN 
S: - 0; 

FOR J: - 1980 TO 1 905 DO S: - S ♦ TIJ.M); 

MONATSSUMME: * S 
END; ( * MONATSSUMME *) 

PROCEDURE GESAMTSUMME (VAR T: UMSATZ TABELLE): REAL; 

<* BERECHNE DIE SUMME ALLER UMSÄTZE *) 

VAR J: JAHR; 

S: REAL; 

BEGIN 
S: - 0; 

FOR J: = 1 980 TO 1 985 DO S: « S ♦ JAHRESSUMMEt J, T) ; 
GESAMTSUMME: » S 
END; (* GESAMTSUMME *) 

BEGIN 

(* HIER HERDEN DIE UMSÄTZE FÜR FARBEN UND LACKE VORBELEGT *) 

WRITELN( ' UMSATZ FARBEN 1 980:', JAHRESSUMME( 1 980, FARBEN); 
HRITELNt' UMSÄTZE LACKE JANUAR 1 980-1 985:*); MONATSSUME( 1 , 
LACKE); HRITELN( * UMSÄTZE LACKE UND FARBEN INSGESAMT:*, 
GESAMTSUMME! LACKE) ♦ GESAMTSUMME (FARBEN)); 

END. 


Felder im Record übertragen. Wichtig 
und charakteristisch für das Typkon¬ 
zept in Pascal ist die Tatsache, daß 
zusammengesetzte Typen auch mehr¬ 
stufig aufzubauen sind: 

VAR POSITIONEN: ARRAY [1...99] OF 

POSITION; 

Den umgekehrten Fall, daß ein 
Record aus Arrays besteht, finden Sie 
bereits im Beispiel des Typs ADRESSE. 
Dort sind die Felder NAME und VOR¬ 
NAME vom Typ STRING, den wir ja als 
TYPE STRING = ARRAY [1..11] 

OF CHAR; 

vereinbart hatten. Sollen viele Operatio¬ 
nen mit den Feldern eines Records 
durchgeführt werden, so ist die stän¬ 
dige Wiederholung des Variablenna¬ 
mens lästig. Für diesen Fall existiert die 
WITH-Anweisung: 

WITH Recordvariable DO Anweisung 
So kann man folgende Zuweisungen 
ADR.NAME :='Hugendubel'; 

ADR.VORNAME:='Kunigunde'; 

ADR.ORT :='7 Berge'; 

ADR.STRASSE:='7 Zwerge'; 

schreiben als: 

WITH ADR DO 
BEGIN 

NAME := 1 Hugendubel'; 

VORNAME:= 'Kunigunde'; 

ORT := '7 Berge'; 

STRASSE:= '7 Zwerge'; 

END; 

Wie alles in Pascal können auch 
WITH-Anweisungen geschachtelt wer¬ 
den. Nach der geschachtelten Record- 
Deklaration 

TYPE DATUM = RECORD 

TAG : 1..31; 

MONAT : 1..12; 

JAHR : INTEGER; 
END; 

BANKAUSZUG = RECORD 

DATUM: DATUM; 
KONTOSTAND: REAL 


END; 

VAR MEINBANKAUSZUG: BANKAUSZUG; 

prüft man folgendermaßen das Datum 
auf dem Bankauszug: 

WITH MEINBANKAUSZUG DO 
BEGIN 

IF KONTOSTAND >0 THEN 
WITH DATUM DO 
WRITELN(TAG,'.',MONAT,'.', 

JAHR) 

END; 

Dabei muß sich die innere WITH- 
Anweisung auf ein Feld in dem Record 
der äußeren WITH-Anweisung bezie¬ 
hen. Hier ist dies also das Feld MEIN 
BANKAUSZUG.DATUM. Bemerkens¬ 
wert sind noch die Sichtbarkeitsregeln 
für Feldnamen. Man kann ohne Na¬ 
menskonflikte Variablen mit dem Feld¬ 
namen aus der Record-Deklaration 
definieren. Der Feldname ist durch 
einen Punkt oder die WITH-Anweisung 
an den Variablennamen des Records 
gebunden. 

Am besten verdeutlicht wiederum ein 
Beispiel die Arbeit mit Records. In 
Listing 15 wird der Typ 

TYPE BRUCH = RECORD 

ZAEHLER, NENNER: INTEGER; 
END; 

definiert. Man möchte also auch gebro¬ 
chene Zahlen »exakt« darstellen. Nun 
lernt man aber in der Schule, daß 

1 2 123456 

— und - und - 

2 4 245912 

dieselbe Zahl darstellen. Deshalb wer¬ 
den bei allen Operationen Zähler und 
Nenner gekürzt dargestellt. Zum Kür¬ 
zen muß man den größten gemeinsa¬ 
men Teiler (ggT) von Zähler und Nenner 
kennen. Beim Addieren werden die bei¬ 
den Brüche auf einen Hauptnenner 
gebracht, der natürlich möglichst klein 
bleiben soll. Daher ist im Programm 
auch eine Funktion zur Berechnung 


des kleinsten gemeinsamen Vielfachen 
(kgV) enthalten. Nach der Erweiterung 
der beiden Zähler ergibt sich durch 
Addieren der Zähler des Summenbru¬ 
ches. Wegen der teilerfremden Aus¬ 
gangsbrüche und der Wahl des Haupt¬ 
nenners spart man es sich, den Zähler 
gegen den Nenner zu kürzen. 

Die Multiplikation verläuft wie in der 
Schule nach der Regel Zähler mal Zäh¬ 
ler und Nenner mal Nenner. Jedoch 
werden zuvor die Brüche kreuzweise 
gekürzt, um die Produkte möglichst 
klein zu halten. Vielleicht ist es eine 
gute Denksportaufgabe, zu überlegen, 
warum nach der Multiplikation Zähler 
und Nenner teilerfremd sind. 

Die Subtraktion ist einfach auf die 
Addition zurückzuführen, ebenso wie 
die Division durch Kehrwertbildung auf 
die Multiplikation zurückführt. Bei der 
Berechnung des Kehrwertes ist jedoch 
auf eine korrekte Behandlung des Vor¬ 
zeichens zu achten. 

Normalerweise eignen sich zur Erläu¬ 
terung von Records Beispiele aus der 
kaufmännischen Datenverarbeitung, da 
man einen Record am einfachsten als 
ein Formblatt beschreiben kann, das 
verschiedene Felder enthält, die nur 
Werte gewisser Typen beinhalten dür¬ 
fen. 

TYPE KRAFTFAHRZEUGSCHEIN = 

RECORD 

WAGEN: KENNZEICHEN; 

WOHNORT, STANDORT: ADRESSE; 

LEISTUNG: INTEGER; 

END; 

Diese Deklaration setzt natürlich vor¬ 
aus, daß zuvor die Typen KENNZEI¬ 
CHEN und ADRESSE (zum Beispiel 
selbst als Records) definiert wurden. 

Es gibt jedoch auch Felder, die nur 
dann gültig sind, falls in einem anderen 
Feld ein bestimmter Wert steht. 

















TYPE PERSONALAKTE = 

RECORD 

NAME : STRING; 

VORNAME: STRING; 

CASE STAND: FAMILIENSTAND OF 
LEDIG: (); 

VERHEIRATET,GETRENNT: 

(HEIRAT: DATUM); 
GESCHIEDEN: 

(SCHEIDUNG: DATUM; 
ALIMENTE : BOOLEAN); 

END; 

VAR AKTEI: PERSONALAKTE; 


Dieses Beispiel zeigt einen Varianten 
(veränderlichen) Record. Er besteht 
aus einem festen Teil (den Feldern 
NAME und VORNAME), dem ein verän¬ 
derbarer Teil folgt. Dieser Teil wird durch 
das Schlüsselwort CASE eingeleitet. 
Ihm folgt ein Feldname mit Typangabe. 
In Abhängigkeit der Werte dieses skala¬ 
ren Typs besitzen die nachfolgenden 
Feldlisten in runden Klammern Gültig¬ 
keit. 

Nach der Zuweisung »AKTEI.STAND: 
= LEDIG« sind nur die Felder NAME 


und VORNAME gültig. Ist jedoch 
»AKTEI.STAND = VERHEIRATET«, so 
wird zusätzlich das Feld HEIRAT vom 
Typ DATUM relevant. Ihm darf man jetzt 
Werte des korrekten Typs zuweisen: 
AKTEI. HEIRAT.TAG :=7; 

AKTEI. HEIRAT.MONAT:=6; 

AKTEI. HEIRAT.JAHR :=1973; 

Dieselben Felder gelten auch für 
»STAND = GETRENNT«. Sollte im Laufe 
der Ehegeschichte eine Scheidung 
eintreten, so werden sich auch in der 
Personalakte gravierende Änderungen 


PROGRAM BRUECHE (INPUT, OUTPUT); 

(* ZAEHLER MAL ZAEHLER UND NENNER MAL NENNER. VOR DER *) 

(* RECHNUNG MIT BRUECHEN IN DER DARSTELLUNG ZAEHLER, NENNER *) 

(* MULTIPLIKATION WERDEN ZAEHLER UND NENNER GEKUERZT. *) 

TYPE BRUCH - RECORD 


ZAEHLER: INTEGER; 

BEGIN 

NENNER : INTEGER; 

(* KUERZE ZUNAECHST KREUZWEISE, DAMIT PRODUKT NICHT *) 

<* ZAEHLER UND NENNER IMMER *) 

(* ZU GROSS WIRD *) 

<* TEILERFREMD, NENNER POSITIV *) 

KUERZE (A.ZAEHLER, B.NENNER); 

END; 

KUERZE (B.ZAEHLER, A.NENNER); 

VAR A, B, SUMME, DIFFERENZ, PRODUKT, QUOTIENT: BRUCH; 



C. ZAEHLER: - A. ZAEHLER * B. ZAEHLER; 

PROCEDURE KUERZ E( VAR A, B: INTEGER); 

C. NENNER : ■ A. NENNER * B. NENNER; 

<* KUERZE A UND B DURCH IHREN GROESSTEN GEMEINSAMEN TEILER *) 


VAR X: INTEGER; 

(* ZÄHLER UND NENNER VON C SIND HIER NOCH TEILERFREMD *> 


END; (* MULTIPLIZIERE *) 

FUNCTION GGT ( X, Y: INTEGER): INTEGER; 


(* BERECHNE DEN GRÖSSTEN GEMEINSAMEN TEILER VON X UND Y *) 

PROCEDURE KEHRWERT*VAR A: BRUCH); 

VAR H: INTEGER, 

(* BERECHNE DEN KEHRWERT VON A. BEACHTE DIVISION DURCH 0 

BEGIN 

UND VORZEICHEN *) 

IF Y> X THEN 


BEGIN H; -X; X:=Y; Y:=H END; 

VAR T: INTEGER; 

REPEAT 


H: = X MOD Y; 

BEGI N 

X: » Y; Y: - H 

T: = A ZAEHLER; 

UNTIL H « 0; 

IF T = 0 THEN WRITELN( 1 DIVISION DURCH NULL»’) 

GGT: = X; 

ELSE 

END; (* GGT *) 

IF T> 0 THEN 


BEGIN 

BEGIN (* KÜRZE *) 

A. ZAEHLER: = A. NENNER; 

X: « GGT( ABS( A) , B) ; 

A. NENNER : - T 

IF XOI THEN 

END 

BEGIN 

ELSE 

A: = A DIV X; 

BEGIN 

B: * B DIV X; 

A. ZAEHLER: = -A. NENNER; 

END; 

A. NENNER : » -T; 

END; (* KÜRZE *) 

END; 


END; (* KEHRWERT *) 

FUNCTION KGV( X, Y: INTEGER): INTEGER; 


(* BERECHNE DAS KLEINSTE GEMEINSAME VIELFACHE VON X UND Y *) 

PROCEDURE LESEN (VAR A: BRUCH); 


(* LIEST EINENrBRUCH VON DER TASTATUR. WIRD NACH *> 

VAR U, V: I NTEGER; 

(* DEM ZAEHLER 7 DAS ZEILENENDE ERREICHT, SO WIRD *) 


(* DER NENNER GLEICH EINS GESETZT *> 

BEGIN 


U: * X; V: * Y; 

BEGIN 

HHILE XOY DO 

WITH A DO 

IF X> Y THEN 

BEGIN 

BEGIN X: * X-Y; U: » U + V END 

READ( A. ZAEHLER) ; 

ELSE 

IF EOLN THEN A. NENNER: = 1 

BEGIN Y: = Y-X; V: = V + U END; 

ELSE READLN(A. NENNER); 


END; 

KGV: - ( U+V) DIV 2 

KUERZ E( A. ZAEHLER, A. NENNER) ; 

(* ÜBRIGENS IST GGT( X, Y) * X *) 

END; (* LESEN *) 

END; (* KGV *) 



PROCEDURE DRUCKEN ( A: BRUCH) ; 

PROCEDURE ADDIERE ( A, B: BRUCH; VAR C: BRUCH); 


(* ADDIERE DIE BRÜCHE A UND B ZUM BRUCH C *) 

BEGI N 


WITH A DO 

VAR HN: INTEGER; <* HAUPTNENNER *) 

IF NENNER - 1 THEN WRITELN(ZAEHLER) 

BEGIN 

WRITELN* ZAEHLER, •/’, NENNER) 

WITH C DO 

END; (* DRUCKEN *> 

BEGIN 


(* HAUPTNENNER BERECHNEN *) 

BEGIN 

HN :- KGV(A.NENNER, B.NENNER); 


NENNER HN; 

WRITELN('RECHNEN MIT BRUECHEN: (ENDE MIT A = 0)'); 

(* AUF HAUPTNENNER BRINGEN *> 


ZAEHLER :« A.ZAEHLER * (HN DIV A.NENNER) + B.ZAEHLER * 

REPEAT 

(HN DIV B.NENNER); 

WRITE( ■ A = • ); LESEN* A); 

END; (* WITH *) 

WRI TE( * B - • ) ; LESEN( B) ; 

END; (* ADDIERE *) 



ADDIERE* A, B, SUMME) ; 

PROCEDURE SUBTRAHIEREt A, B: BRUCH; VAR C: BRUCH) ; 

WRITE('A ♦ B - *); DRUCKEN*SUMME); 

(* SUBTRAHIERE B VON A. ERGEBNIS IN C *) 

SUBTRAHIERE* A, B. DIFFERENZ) ; 


WRITE( ’ A - B = ' ) ; DRUCKEN* DIFFERENZ);' 

BEGIN 

MULTIPLIZIERE* A, B, PRODUKT) ; 

B. ZAEHLER: * - B. ZAEHLER; 

WRITEt-A * B * * ) ; DRUCKEN* PRODUKT); 

ADDIERE(A, B,C) 

KEHRWERT* B) ; MULTIPLIZIERE* A, B, QUOTIENT); 

END; ( * SUBTRAHIERE *) 

WRITE( ’ A / B - ’); DRUCKEN* QUOTIENT); 


UNTIL A. ZAEHLER - 0; 

PROCEDURE MULTIPLIZIERE! A, B: BRUCH; VAR C: BRUCH); 

END. 

Listing 15. Bruchrechnung mit Records in Pascal 











vollziehen. Mit »AKTEI.STAND := GE¬ 
SCHIEDEN« wird das Feld HEIRAT un¬ 
gültig und statt dessen das Feld SCHEI¬ 
DUNG (ebenfalls ein Datum) mit dem 
booleschen Feld ALIMENTE wirksam. 

Offensichtlich kann man mit Varianten 
Records sehr gut die Tatsache wieder¬ 
geben, daß gewisse Attribute eines 
Objektes nur unter gewissen Randbe¬ 
dingungen relevant sind. Dies wird 
dadurch erreicht, daß zu jedem Zeit¬ 
punkt immer nur eine der Feldlisten in 
Klammern hinter den Konstanten gültig 
ist. Diese zusätzlichen Informationen 
nutzt der Pascal-Compiler, um wie¬ 
derum Speicherplatz zu sparen. Er legt 
alle Varianten (also alle Feldlisten, die zu 
verschiedenen Werten des Auswahlfel¬ 
des gehören) an dieselbe Speicherpo¬ 
sition. Zur Laufzeit bestimmt dann das 
Auswahlfeld nach CASE (engl, tagfield), 
wie der Inhalt des Speichers zu inter¬ 
pretieren ist. Alle gemeinsamen Felder 
aus dem festen Teil sind eindeutig, wäh¬ 
rend die Felder im Varianten Teil sich 
gegenseitig überlappen. 

Diese Überschneidung muß beach¬ 
tet werden, wenn ein Wechsel des Aus¬ 
wahlfeldes anfällt. Eine Anwendung 
varianter Records zeigt Listing 16. 
Bekanntermaßen kann man einen 
Punkt in der Ebene auf zwei verschie¬ 
dene Methoden darstellen: 


In rechtwinkligen X- und Y-Koordina- 
ten oder mit Polarkoordinaten, durch 
Angabe der Entfernung des Punktes 
zum Koordinatensprung (L) und des 
Winkels zur X-Achse (PHI). 

Da sich eine Darstellungsform für 
gewisse Anwendungen jeweils besser 
eignet, wird in diesem Programm mit 
Varianten Records ein Wechsel zwi¬ 
schen beiden Darstellungen zugelas¬ 
sen: 

TYPE KOORDINATE = 

RECORD 

CASE TYP:KOORDINATENTYP 0F- 
RECHTWINKLIG: 

(X,Y: REAL); 

POLAR: 

(L,PHI: REAL); 

END; 

Es ist zu beachten, daß die Angabe 
des Typs des Auswahlfeldes (hier 
KOORDINATENTYP) durch einen Typ¬ 
namen erfolgen muß. Je nach dem Wert 
von Typ ist also die Koordinate durch X 
und Y oder L und PHI bestimmt. Im übri¬ 
gen Programm können Sie neben dem 
Nutzen der WITH-Anweisung bei der 
Arbeit mit Records auch den Vorteil der 
Case-Anweisung bei Varianten Records 
erkennen. Indem man vor dem Zugriff 
auf eine Variante eine CASE-Anweisung 
setzt, die die Konstanten aus der 


Record-Deklaration wiederholt, ist man 
vor unerlaubten Zuweisungen wie 

P.TYP:= POLAR; 

P.X := 39.4; 

geschützt. Erwähnenswert ist noch die 
Ende-Bedingung der Repeat-Schleife 
UNTIL BETRAG(P) <= EPSILON; 

Das Programm soll beendet werden, 
wenn die Entfernung des Punktes vom 
Ursprung Null ist. Da jedoch alle reellen 
Zahlen nur mit Rundungsfehlern 
berechnet werden können, verwendet 
man zwischen reellen Zahlen nie den 
Test auf Gleichheit (A=B), sondern nur 
eine Prüfung der Form ABS(A-B) < = 
EPSILON mit einer Konstanten EPSI¬ 
LON, die eine Schranke für die Run¬ 
dungsfehler auf dem jeweiligen Rech¬ 
ner angibt. Die Berücksichtigung dieser 
Regel hilft eine Reihe häufiger Fehler zu 
vermeiden. 

Nun sind wir am Ende unserer Einfüh¬ 
rung in das Programmieren mit Funktio¬ 
nen, Prozeduren und Datentypen ange¬ 
langt. Zur Vertiefung der gewonnenen 
Erkenntnisse sei es dringend angera¬ 
ten, ein wenig mit den abgedruckten 
Beispielen herumzuexperimentieren, 
sie zu erweitern und abzuändern. Denn 
auch in Pascal gilt der altbekannte 
Spruch vom Meister, den man nur durch 
Übung... 

(Florian Matthes/er) 


PROGRAM KOORDINATEN (INPUT, OUTPUT); 

(* RECHNUNG MIT POLAR- UND RECHTWINKLIGEN KOORDINATEN, *) 

<* DARGESTELLT DURCH VARIANTE RECORDS IN PASCAL. *> 

CONST EPSILON - 1. OE-7; (* RUNDUNGSFEHLERGRENZE *) 

TYPE KOORDINATENTYP - (RECHTWINKLIG, POLAR); 

KOORDINATE - RECORD 

CASE TYP: KOORDINATENTYP OF 

RECHTWINKLIG: ( X, Y : REAL); 

POLAR : ( L,PHI: REAL); 

END; 

VAR P: KOORDINATE; 

PROCEDURE HOLEPUNKT (VAR P: KOORDINATE); 


BEGIN 

REPEAT 

WRITB('C-ARTESISCH ODER P-OLAR ?*); 

READLN(CH) 

UNTIL CH IN I ' C’ , * P* 1 ; 

WITH P DO 

IF CH - ’ C* THEN 
BEGIN 

TYP:- RECHTWINKLIG; 

WRI TE( 'X - * ) ; READLN( X) ; 

WRITEt • Y - ' ) ; READLNt Y) 

END 

ELSE 

BEGIN 

TYP:- CARTESISCH; 

WRITECL - •>; READLN(L); (* ABSTAND VOM KOORDINATEN 

*> URSPRUNG 

WRITEt'PHI - ’); READLNtPHI); (* WINKEL ZUR X-ACHSE *) 

END 

END; (* HOLEPUNKT *) 

PROCEDURE UMRECHNUNG (VAR P; KOORDINATE); 

(* UMRECHNUNG DER BEIDEN KOORDINATENTYPEN *) 

VAR R: REAL; 


WITH P DO 
CASE TYP OF 
RECHTWINKLIG: 


BEGIN 

R ; - 

SQRT(X*X ♦ Y*Y) 

PHI: - 

ARCTAN( Y/X) ; 

L : - 

R; 

TYP: - 

POLAR; 


END; 

POLAR; 

BEGIN 

R : - SIN( PHI) *L; 

Y ; - COS( PHI) *L; 

X : - R; 

TYP: - RECHTWINKLIG 
END; 

END; ( * CASE A WITH *) 

END; (* UMRECHNUNG *) 

FUNCTION BETRAG* P; KOORDINATE): REAL; 

BEGIN 

IF P.TYP « RECHTWINKLIG THEN 

BETRAG: - SQRT( SQR( P. X) ♦ SQR( P. Y) ) 

ELSE 

BETRAG: - P. L 
END; <* BETRAG *) 

PROCEDURE DRUCKEPUNKT ( P: KOORDINATE); 

BEGIN 

WITH P DO 
CASE TYP OF 

RECHTWINKLIG: WRITELN( ' X - X, * , Y - Y) ; 
POLAR : WRITELN( * L - ' , L, PHI - ’,PHI); 

END; (* CASE *) 

END; (* DRUCKEPUNKT *) 

BEGIN 

REPEAT 

HOLEPUNKT( P) ; 

DRUCKEPUNKTt P) ; 

UMRECHNUNG* P) ; 

DRUCKEPUNKTt P) ; 

UNTIL BETRAG*P)<- EPSILON; 

BND. 


Listing 16. Koordinatenumrechnung mit Varianten Records 


BEGIN 












Snitzen-Software für L 
Sdineider-Commiter 
und Commodore 128 PC 


Wordstar 3.0 mit MailMerge Der Bestseller unter den Textverarbei¬ 
tungsprogrammen für PCs bietet Ihnen bildschirmorientierte Formatierung, deutschen 
Zeichensatz und DIN-Tastatur sowie integrierte Hilfstexte. Mit MailMerge können Sie 
Serienbriefe mit persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben 
und auch die Adreßaufkleber drucken. 

WordStar/MailMerge für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 101 (3' -Diskette) 

Bestell-Nr. MS 102 (5 % "-Diskette im VORTEX-Format) 

WordStar/MailMerge für den Schneider CPC 6128 
Bestell-Nr. MS 104 (3 "-Diskette) 

WordStar/MailMerge für den Schneider Joyce PCW 8256 
Best.-Nr. MS 105 (3"-Diskette) 

Hardware-Anforderungen: Schneider CPC 464*, CPC 664*, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* Der Standard-Speicherplatz beim CPC 464/664 erlaubt ohne Speichererweite¬ 
rung Blockverschiebe-Operationen nur bedingt und Simultan-Drucken gar nicht. 

WordStar/MailMerge für den Commodore 128 PC 
Bestell-Nr. MS 103 (5‘/ 4 "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


IVLvVllkdiiiik 

Schneider CPC 
Software 


Und dazu die 

weiterführende 

Literatur: 


Wordstar für den Schneider CPC 
Best.-Nr. MT 779, ISBN 3-89090-180-8 
Wordstar für den Commodore 128 PC 
Best.-Nr. MT 780, ISBN 3-89090-181-6 


Wordstar 30 

mit MailMerge für den 
Schneider CPC464/664 

3" Schneider-Format 



dBASE II, Version 2.41 dBASE II, das meistverkaufte Programm unter 
den Datenbanksystemen, eröffnet Ihnen optimale Möglichkeiten der Daten- u. Datei¬ 
handhabung. Einfach u. schnell können Datenstrukturen definiert, benutzt und geän¬ 
dert werden. Der Datenzugriff erfolgt sequentiell oder nach frei wählbaren Kriterien, die 
integrierte Kommandosprache ermöglicht den Aufbau kompletter Anwendungen wie 
Finanzbuchhaltung, Lagerverwaltung, Betriebsabrechnung usw. 
dBASE II für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 301 (3 "-Diskette) 

Bestell-Nr. MS 302 (5%”-Diskette im VORTEX-Format) 

dBASE II für den Schneider CPC 6128 

Bestell-Nr. MS 304 (3 "-Diskette) 

dBASE II für den Schneider Joyce PCW 8256 

Best.-Nr. MS 305 (3 "-Diskette) 

Hardware-Anforderungen: Schneider CPC 464*, CPC 664*, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* dBASE II für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. Diese erhalten Sie direkt bei der Firma VORTEX oder bei 
Ihrem Computerhändler. 

dBASE II für den Commodore 128 PC 
Bestell-Nr. MS 303 (5 % '-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 
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AasktünTäte 

für den 

Schneider CPC 6128 

3" Schneider-Format 


dBASE II für den Schneider CPC 
Best.-Nr. MT 837, ISBN 3-89090-188-3 
dBASE II für den Commodore 128 PC 
Best.-Nr. MT 838, ISBN 3-89090-189-1 



Schneider CPC 


MULTIPLAN, Version 1.06 Wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen mit Bleistift, Radiergummi und Rechenmaschine 
satt haben, dann ist MULTIPLAN, das System zur Bearbeitung »elektronischer Datenblät¬ 
ter«, genau das richtige für Sie! Das benutzerfreundliche und leistungsfähige Tabellenkal¬ 
kulationsprogramm kann bei allen Analyse- und Planungsberechnungen eingesetzt wer¬ 
den wie z. B Budgetplanungen, Produktkalkulationen, Personalkosten usw. Spezielle For- 
matierungs-, Aufbereitungs- und Druckanweisungen ermöglichen außerdem optimal auf¬ 
bereitete Präsentationsunterlagen! 

MULTIPLAN für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 201 (3 "-Diskette) 

Bestell-Nr. MS 202 (5 % "-Diskette im VORTEX-Format) 

MULTIPLAN für den Schneider CPC 6128 
Bestell-Nr. MS 204 (3 "-Diskette) 

MULTIPLAN für den Schneider Joyce PCW 8256 
Best.-Nr. MS 205 ("-Diskette) 

Hardware-Anforderungen. Schneider CPC 464*, CPC 664*, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* MULTIPLAN für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. 

MULTIPLAN für den Commodore 128 PC 
Bestell-Nr. MS 203 (5% "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


HvilllafuiUk 


I2Äer~Software 


MULTIPLAN für den Schneider CPC 
Best.-Nr. MT 835, ISBN 3-89090-186-7 
MULTIPLAN für den Commodore 128 PC 
Best.-Nr. MT 836, ISBN 3-89090-187-5 


Jedes Buch kostet DM 49,- 
(sFr. 45,10/öS 382,20). 

Erhältlich bei Ihrem Buchhändler. 


MICROSOFT 

MULTIPLAN 

für den 

Commodore 128 PC 

SV-Dtaketle 
im Floppy 1541-Fbrmat 


MULTI PLAN 

für den 

Commodore 128 PC 


Sie erhalten jedes Wordstar-, dBASE II- und MULTIPLAN-Programm für Ihren Schneider- 
Computer oder Commodore 128 PC fertig angepaßt (Bildschirmsteuerung). Jeweils 
Originalprodukte! Jedes Programmpaket enthält außerdem ein ausführliches Handbuch 
mit kompakter Befehlsübersicht. Die VORTEX-Speichererweiterung für den Schneider 
CPC 464 erhalten Sie direkt bei der Firma VORTEX oder bei Ihrem Computerhändler 
Diese Markt ATechnik-Softwareprodukte erhalten Sie in den Computer-Abteilungen 
der Kaufhäuser, bei Ihrem Computerhändler oder im Buchhandel. 

Wenn Sie direkt beim Verlag bestellen wollen: gegen Vorauskasse durch Verrechnungs¬ 
scheck oder mit der eingehefteten Zahlkarte 
Bestellungen im Ausland bitte an untenstehende Adressen. 

Schweiz. Markt ATechnik Vertriebs AG, 

Kollerstrasse 3, CH-6300 Zug, * 042/41 56 56 
Österreich: Überreuter Media, Handels- und Verlagsges. mbH, 

Alser-Str. 24, A-1091 Wien, ® 0222/481538-0 

Für Auskünfte steht Ihnen Herr Teller, Telefon 089/4613-205, gerne zur Verfügung. 


Jedes Programm 

knctat nu 4AQ Jr . _ • Inkt. MwSt. Unverbindlich* 

KOSiei um lsy^ (»Fr. 178 r /öS P,.i„ mp fehlun8 



Markt&Technik 


Unternehmensbereich Buchverlag 
Hans-Plnsel-StraBe 2, 8013 Haar bei München 









Dateiverwaltung mit 

Pascal 


H at man große Datenmengen zu 
verarbeiten, so reicht der 
Arbeitsspeicher des Compu¬ 
ters im allgemeinen nicht aus. Außer¬ 
dem gehen alle Daten im Hauptspei¬ 
cher beim Ausschalten des Computers 
verloren. Um langfristig große Datenbe¬ 
stände zu konservieren, benötigt man 
externe Speichermedien (Floppy-Disk, 
Festplatten, aber auch Band- und Kas¬ 
settenlaufwerke). 

Ein großes Problem ist nun die Tat¬ 
sache, daß es fast so viele Betriebs¬ 
systeme wie Computertypen gibt. Da 
jedoch Pascal sowohl auf Mikrocompu¬ 
tern als auch Großrechenanlagen im¬ 
plementiert ist, muß ein möglichst 
systemunabhängiges Konzept zur Dar¬ 
stellung externer Speicher in der Spra¬ 
che gefunden werden. Diese Lösung 
besteht in der Formalisierung des Prin¬ 
zips der sequentiellen Dateien, die man 
als den kleinsten gemeinsamen Nenner 
aller Dateiverwaltungssysteme be¬ 
zeichnen kann. 

Mit der Deklaration 
TYPE ZAHLENDATEI = FILE OF 
INTEGER; 

VAR D: ZAHLENDATEI; 

wird ein File D vereinbart, dessen Kom¬ 
ponenten aus ganzen Zahlen beste¬ 
hen. Allgemein kann nach den Schlüs¬ 
selworten FILE und OF jeder beliebige 
(auch zusammengesetzte) Typ folgen. 
Wie in einem Array besitzen alle Kom¬ 
ponenten denselben Typ. Jedoch kann 
ein File (praktisch) beliebig viele Kom¬ 
ponenten umfassen, die nur in fester 
Reihenfolge adressiert werden können. 
Zu jedem Zeitpunkt ist immer nur eine 
Komponente erreichbar. Diese aktuelle 
Komponente wird im obigen Beispiel 
mit D t bezeichnet und ist vom Typ INTE¬ 
GER. 

Um nun weitere Komponenten zu 
erreichen, kann man die aktuelle Kom¬ 
ponente (Puffervariable) Dt wie ein 
Fenster über das gesamte File ver¬ 
schieben (siehe Bild 1). Ein konkretes 
Beispiel für das Schreiben und Lesen 
eines Files zeigt Listing 1. Es demon¬ 
striert die beiden Methoden des 
Zugriffs auf Files in Pascal. 

1. Sequentielles Schreiben 

Um ein File zu erzeugen, muß man die 
Standardprozedur REWRITE mit der 
Filevariablen (im Beispiel also Dt) aufru- 
fen. Dadurch werden alle Komponenten 
gelöscht, die eventuell zuvor im File exi¬ 
stierten. Das Schreibfenster (Dt im Bei- 


Dieser Beitrag beschäftigt sich 
mit dem Datei-Begriff von Pascal 
und gibt Hinweise und Beispiele 
für die effiziente Verwaltung gro¬ 
ßer Datenmengen. 

spiel) steht über der ersten Kompo¬ 
nente und besitzt einen Undefinierten 
Wert (siehe Bild 2a). Eine Zuweisung wie 

Dt := 99; 

füllt den Puffer mit dem angegebenen 
Wert (Bild 2b). Natürlich erfolgen auch 
bei Files die üblichen Typüberprüfun¬ 
gen, so daß der Compiler die Zuwei¬ 
sung »Dt :=’K’« als fehlerhaft erkennt. 
Mit PUT(D) wird der Wert des Puffers in 
das File geschrieben und der Schreib¬ 
zeiger eine Position weiter gesetzt. 
Jede Wiederholung der Schritte Wert¬ 
zuweisung an den Puffer und Puffer 
schreiben erweiter das File um jeweils 
eine Komponente (Bild 2c): 

Dt:» 43; PUT(D); 

Es ist beim sequentiellen Schreiben 
nicht möglich, eine bereits geschrie¬ 
bene Komponente wieder zu korrigie¬ 
ren, da dazu der Schreibzeiger rück¬ 
wärts bewegt werden müßte. 

2. Sequentielles Lesen 
Durch den Aufruf der Standardproze¬ 
dur RESET mit der Filevariablen als 
Parameter wird die Puffervariable auf 
den Wert der ersten Komponente im 


File gesetzt (Bild 2d). Die Puffervariable 
kann man wie eine »normale« Variable in 
Ausdrücken verwenden und so das File 
Stück für Stück bearbeiten. Im Beispiel 
ergibt die Befehlsfolge 
RESET(D); WRITE(Dt, Dt+5) 
die Ausgabe »99 104«. Aufruf GET(D) 
setzt die Puffervariable wiederum eine 
Position weiter, so daß Dt den Wert 43 
enthält (Bild 2 e). Nach einem erneuten 
Aufruf von GET(D) steht das Lesefen¬ 
ster hinter der letzten belegten Kompo¬ 
nente (Bild 2f) und die Puffervariable ist 
Undefiniert. Um festzustellen, ob das 
Lesefenster über einem definierten 
Wert steht oder sich hinter dem 
Fileende befindet, dient die Standard¬ 
funktion 

EOF(Filevariable) 

So lieferte EOF(D) den booleschen 
Wert TRUE, falls Dt sich in der letzten 
Komponente (wie in Bild 2f) befindet. 
Insbesondere ist EOF=TRUE, falls man 
ein leeres File mit RESET zum Lesen 
eröffnet. Da im Beispielprogramm in 
Listing 1 die Länge des Files unbekannt 
ist, wird eine Schleife der Form 
WHILE NOT EOF(D) DO 
verwendet. Übrigens ist per Definition 
EOF(D)=TRUE, falls auf das File D 
(nach RESET(D)) geschrieben wird. 

Man kann ein File in beliebiger Rei¬ 
henfolge mit RESET und REWRITE zum 
sequentiellen Lesen und Schreiben 



Bild 1. Schematische Darstellung eines Files mit Filepuffer 


PROGRAM FILES (INPUT, OUTPUT); 

VAR ZAHLENDATEI: FILE OF INTEGER; 

X ; INTEGER; 

8 EGIN 

(* ZAHLEN VON DER TASTATUR AUF FILE SCHRIEIBEN: *) 

REWRITE(ZAHLENDATEI); <* SEQUENTIELL SCHREIBEN *) 

REPEAT 

READLN( X) ; 

ZAHLENDATEI*: = X; (* PUFFER MIT ZAHL FÜLLEN *) 

PUT<ZAHLENDATEI); <* PUFFER SCHREIBEN *) 

UNTIL X=0; 

<* ZAHLEN VOM FILE LESEN UND SCHREIBEN: *) 

RESET( ZAHLENDATEI) ; (* SEQUENTIELL LESEN *) 

WHILE NOT EOF( ZAHLENDATEI) DO (* SOLANGE NICHT HINTER DEM DATEIENDE * 
BEGI N 

X:* ZAHLENDATEI*; (* PUFFER AUSLESEN *) 

W RI TELN< X) ; 

GET( ZAHLENDATEI) ; (* PUFFER AUF NÄCHSTE ZAHL *) 

END; 

END. 


Listing 1. Grundlegende Fileoperationen 












Bild 2. Operationen in einem File (a bis f) 


PROGRAM MERGE(INPUT, OUTPUT); 

<* 2 PHASEN 3 - BAND NATÜRLICHES MISCHSORTIERTEN *) 

TYPE ITEM = RECORD 

KEY: INTEGER; <* ODER CHAR, REAL, ARRAt . . ] OF CHAR *) 
<* HIER KÖNNEN HEITERE FELDER STEHEN *) 

END; 

TAPE = FILE OF ITEM; 


VAR C : TAPE; 
BUF: ITEM; 


(* DIESES FILE WIRD SORTIERT *) 
(* HILFSVARIABLE ZUR EINGABE *) 


PROCEDURE LIST (VAR F: TAPE); 

(* ZEIGE DEN INHALT VON F AN *) 
VAR X: ITEM; 

BEGI N 

RESET( F) ; 

WHILE NOT EOF( F) DO 
BEGI N 

X. KEY: = F\ KEY; 

GET( F) ; 

WRI TE( X. KEY: 4) 

END; 

HRITELN 

END; ( * LIST *) 


PRCEDURE NATURALMERGE; 

(* SORITERE DAS FILE C (GLOBAL) IN MEHREREN DURCHLÄUFEN. 
(* DIE PROZEDUR BENUTZT ZWEI HILFSFILES A UND B. 

VAR L : INTEGER; (* ANZAHL DER LÄUFE AUF C 

EOR: BOOLEAN (* END OF RUN, END*E DES LAUFES 
A, B: TAPE; ( * HI LFSFI LES 


PROCEDURE COPY( VAR X, Y: TAPE); 

<* KOPIERE RECORD VON X NACH Y, AKTUALISIERE EOR 
VAR BUF: ITEM; 

BEGI N 

BUF. KEY: = X*. KEY; GET( X) ; 

Y~. KEY: = BUF. KEY; PUT( Y) ; 

IF EOF( X) THEN EOR: =TRUE 

ELSE EOR: =BUF. KEY> X'. KEY 
END; ( * COPY *) 

PROCEDURE COPYRUN (VAR X, Y: TAPE); 

(* KOPIERE KOMPLETTEN LAUF VON X NACH Y *) 

BEGI N 

REPEAT COPY( X, Y) UNTIL EOR 
END; (* COPYRUN *) 

PROCEDURE DISTRIBUTE; 

(* KOPERE LÄUFE VON C ABWECHSELND AUF A UND B *) 
BEGI N 
REPEAT 


Listing 2. Natürliches Mi sch sortieren mit Files 


eröffnen, jedoch ist zu beachten, daß 
jeder Aufruf mit REWRITE alle im File 
existierenden Komponenten löscht. 
Möchte man ein bestehendes File am 
Ende erweitern, so muß man zunächst 
das gesamte File mit GET und PUT auf 
ein anderes File kopieren, an das man 
dann mit PUT die neuen Komponenten 
anfügt. Sollten Sie beim Test des Pro¬ 
grammes in Listing 1 nicht das 
gewünschte Ergebnis erhalten, so liegt 
das wahrscheinlich daran, daß der 
Compiler für Ihren Computer zusätzli¬ 
che Anweisungen zur Arbeit mit Files 
benötigt. 

In Turbo-Pascal zum Beispiel verlangt 
eine Filevariable vor dem ersten RESET 
oder REWRITE mit der Prozedur 
ASSIGN einen 
ASSIGN(D, 'DATEN.SEQ■) 

Außerdem sollten in Turbo-Pascal 
unter dem Betriebssystem PC-DOS alle 
Files (auch solche, von denen nur gele¬ 
sen wurde) am Ende der Verarbeitung 
mit CLOSE geschlossen werden: 
CLOSE(D) 

Werfen Sie bei Schwierigkeiten also 
zunächst einen Blick in die Handbü¬ 
cher. Neben diesem zusätzlichen Auf¬ 
wand bei der Behandlung sequentieller 
Dateien bieten viele Compiler die Mög¬ 
lichkeit, die Schreib- und Leseposition 
in einem File gezielt zu setzen. Mit 
SEEK(D,400) 

zeigt die Puffervariable auf die 400. 
Komponente im File. Arbeitet man mit 
einer Festplatte, so läßt sich ein File wie 
ein Array variabler Größe mit hundert¬ 
fach langsamerer Zugriffszeit verwen¬ 
den. 

Zurück zum Pascal-Standard. Eine 
grundlegende Operation mit Files ist 
das Sortieren. Für das Sortieren von 
Arrays gibt es eine Vielzahl von Algorith¬ 
men, deren Verständlichkeit oft umge¬ 
kehrt proportional zur Sortiergeschwin¬ 
digkeit ist. Falls Sie Pascal und nicht das 
Sortieren auf externen Speicherme¬ 
dien lernen wollen, ist in Listing 2 ein 
Programm zum sogenannten »3-Band-, 
2-Phasen-Mischsortieren« abge¬ 
druckt. 

Natürlich kann man ein File dadurch 
sortieren, daß man es komplett in den 
Speicher lädt, dort sortiert und es 
anschließend geordnet zurückschreibt. 
Reicht jedoch (was häufig der Fall ist) 
der Arbeitsspeicher nicht aus, so hat 
man von jedem File in jedem Schritt nur 
die Komponente der Puffervariablen 
zur Verfügung. Um ein File umzusortie¬ 
ren, benötigt man also mindestens drei 
Files. Von einem File wird sequentiell 
gelesen, während die gelesenen Werte 
in möglichst geschickter Reihenfolge 
auf die beiden übrigen Files verteilt wer¬ 
den (Prozedur DISTRIBUTE). Anschlie¬ 
ßend werden die beiden erzeugten 
Files zum Lesen eröffnet und auf das 
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COPYRUN( C, A) ; 

I P NOT EOF< C) THEN COPYRUNt C, B) ; 

UNTIL EOP( C) ; 

END; (* DISTRIBUTE *) 

PROCEDURE MERGE; 

(« MISCHE FILE A UND B ZU FILE C. L (GLOBAL) ZAHLT DIE LAUFE *) 

PROCEDURE HERGERUN; 

<* MISCHE LAUFE VON A UND B ZU LAUFEN AUF C *> 

BEGIN 

REPEAT 

IF A*. KEY<B“. KEY THEN (* KLEINEREN SCHLÜSSEL KOPIEREN *) 

BEGIN 

COPY( A, C) ; 

IF BOR THEN COPYRUN< B, C) 

END 

ELSE 

BEGIN 

COPY( B, C) ; 

IF BOR THEN COPYRUNI A, C) 

END 

UNTIL EOR; 

END; ( * MERGERUN *> 

BEGIN ( * MERGE *) 

L: ■= O; 

<* ZUNÄCHST FILES MISCHEN, BIS EINES ZU ENDE: *) 

REPEAT 

MERGERUN; L: =L+1 
UNTIL EOF(A) OR EOF! B) ; 

(* JETZT DEN REST VOM JEWEILIGEN FILE KOPIEREN *> 

WHILE NOT EOP< A) DO 
BEGIN 

COPYRUN! A, C) ; 

L: -L*1 
END; 

WHI LE NOT EOF( B) DO 
BEGIN 

COPYRUNI B, C) ; 

L: ■ L+1 
END; 

END; ( * MERGE *> 

BEGIN <* NATURALHERGE *) 

<* ABWECHSELND VERTEILEN UND MISCHEN, BIS NUR EIN LAUF AUF C IST *) 
REPEAT 

REWRITE(A); REWRITE(B); RESETt C) ; (* VON C NACH A UND B *> 

DISTRIBUTE; 

RESET! A) ; RESET! B) ; REWRITE(C) 

MERGE; 

LIST(C); <* NUR ZUR VERDEUTLICHUNG *> 

UNTIL L-1; 

END; ( * NATURALHERGE *> 

BEGIN <* HAUPTPROGRAMM *) 

WRITELN! • SORTIEREN EINES SEQUENTIELLEN FILES:'); 

WRITELN! ' EINGABEZAHLEN: (MIT 0 ABSCHLI ESSEN)') ; 

REWRITE(C); 

READ( BUF. KEY) ; 

REPEAT 

C*. KEY: * BUF. KEY; PUT( C) ; (* AUF C SCHREIBEN *) 

READ! BUF. KEY) 

UNTIL BUF. KEY a O; 

LIST(C); (* ZUR KONTROLLE EINGABEZAHLEN ANZEIGEN *) 

NATURALHERGE; (* SORTIERE C *) 

END. 

Llstlng 2. Natürliches Mischsortieren mit Files (Schluß) 


ursprüngliche Lesefile zurückgeschrie¬ 
ben (Prozedur MERGE), wobei jeweils 
zwei sortierte Teilsequenzen zu einer 
sortierten Sequenz auf dem Ausgangs¬ 
file verbunden werden. 

Durch eine Wiederholung der zwei 
Phasen Verteilen und Mischen (dies ist 
der Fachausdruck für das Zusammen¬ 
fassen zweier teilweise geordneter 
Files zu einem dritten, ebenfalls geord¬ 
neten File) erhält man schließlich ein 
sortiertes File. Ein Beispiel soll das Ver¬ 
halten des Programmes verdeutlichen: 
C = (1 432756 8) verteilt ergibt 

A = (1 4 2 7) 

B = (3 5 6 8) gemischt ergibt 
C = (1345682 7) verteilt ergibt 

A = (1 3 4 5 6 8) 

B = (2 7) gemischt ergibt 

C= (12345678) 

Noch ein paar Worte zur Theorie: 
Eine geordnete Teilfolge innerhalb 
eines Files wird als Lauf (englisch run) 
bezeichnet. So besteht die Folge 
1,4/3/2,7/5,6,8 

aus Läufen. Demzufolge werden mit 
DISTRIBUTE Läufe von C abwechselnd 
nach A und B verteilt, und anschließend 
mit MERGE Läufe auf A und B zu Läufen 
auf C zusammengefaßt. Die Variable L 
zählt die Anzahl der Läufe auf C. Ist L= 1, 
so muß also C aufsteigend geordnet 
sein. 

Das Programm selbst zeigt praktisch 
alle Operationen, die mit Files in Pascal 
möglich sind. Zunächst wird ein 
Recordtyp ITEM vereinbart, der ein 
Schlüsselfeld KEY vom Typ INTEGER 
besitzt. Natürlich könnte an dieser 
Stelle auch ein anderer skalarer Typ 
oder auch der Typ ARRAYfLN] OF 
CHAR stehen. Dann interpretiert der 
Compiler alle Vergleichsoperationen 
mit »=« und »>« korrekt. 

Anschließend wird der eigentliche 
Filetyp TAPE deklariert. Jede Kompo¬ 
nente der Files besteht also aus einem 
Record, so daß mit jedem Aufruf von 
PUT und GET ein kompletter Record 
zwischen Puffervariable und File über¬ 
tragen wird. 

C bezeichnet das zu sortierende File, 
das am Programmanfang in einer 
REPEAT-Schleife mit einer Folge gan¬ 
zer Zahlen gefüllt wird. Die Prozedur 
LIST zeigt, daß man auch Files als Para¬ 
meter übergeben kann. Dabei muß man 
jedoch Variablenmeter verwenden. In 
LIST wird zunächst das File F zum 
Lesen eröffnet und anschließend in 
der üblichen Weise mit einer WHILE- 
Schleife ausgelesen. Hinter dem 
Namen NATURALMERGE verbirgt sich 
die eigentliche Prozedur zum Sortieren. 
Den Beginn und das Ende des Anwei¬ 
sungsteils der Prozedur kennzeichnen 
Kommentare. Sicher ist Ihnen schon 
aufgefallen, daß man ein größeres File 
in Pascal am besten von hinten liest, da 


durch die Schachtelung der Prozedu¬ 
ren die Anweisungsteile des Hauptpro¬ 
grammes und der wichtigen Prozedu¬ 
ren eben nach »hinten« wandern. 

NATURALMERGE selbst besteht, 
wie bereits besprochen, im wechsel¬ 
seitigen Aufruf der beiden Phasen 
DISTRIBUTE und MERGE, bis C nur 
noch einen Lauf umfaßt. In der Hierar¬ 
chie der Prozeduren steht die Prozedur 
COPY am weitesten unten. Sie kopiert 
eine Komponente vom File X zum File Y. 
Um das Ende eines Laufes zu erken¬ 
nen, findet hier die boolesche Variable 
EOR (end of run, Ende des Laufs) 
Anwendung. So ist nach der Zuweisung 


EOR: = BUF.KEY >Xt .KEY 

die Variable EOR = TRUE, falls das Feld 
KEY im Record BUF größer als das ent¬ 
sprechende Feld in der Puffervariablen 
des Files X ist. Da nach jedem Durchlauf 
die bisher erreichte Sortierung auf dem 
File C angezeigt wird, sehen Sie mit den 
folgenden Testdaten die Funktions¬ 
weise des Programmes am deutlich¬ 
sten: 

8,7,6,5,4,3,2,1,0 
Als nächstes wenden wir uns einem 
speziellen Typ von Files zu. Während 
die Files, die mit PUT und GET erzeugt 
werden, die Daten Byte für Byte wie im 
Speicher darstellen, ist es oft sinnvoll, 








Ein- und Ausgaben zu verwenden, die 
ein Mensch verstehen kann. Konkret 
gesprochen stellt man sich unter der 
Zahl 12345 die Zeichenfolge »12345« 
und nicht etwa zwei Byte ($30 und $39 
hexadezimal) vor. 

Da Files, die aus Zeichenfolgen 
bestehen, eine große Rolle spielen, exi¬ 
stiert in Pascal ein vordefinierter Typen¬ 
bezeichner 

TYPE TEXT = FILE OF CHAR; 

Mit der Deklaration 

VAR F: TEXT; 

können neben den Operationen RESET 
und REWRITE auf das Textfile F auch 
formatiert Werte ein- und ausgegeben 
werden. Das Prinzip besteht darin, den 


Prozeduren READ, READLN, WRITE 
und WRITELN als ersten Parameter 
eine Filevariable zu übergeben, von der 
die Eingabe kommt oder auf welche die 
Ausgabe erfolgen soll: 

(1) WRITE(F,AUSDRUCK : n) 

Mit diesem Prozeduraufruf wird der 
Ausdruck vom Typ INTEGER, REAL, 
CHAR oder BOOLEAN auf das File F in 
ein Feld mit einer Mindestlänge von n 
Zeichen geschrieben. Ist die Länge des 
auszugebenden Wertes größer als n, 
so wird n ignoriert: 

WRITE(12^456 : 10); WRITE('*': 3) 

erzeugt also folgende Ausgabe: 

_123456_* 

Ist der Ausdruck vom Typ REAL, so 


sind nach dem Doppelpunkt zwei For¬ 
matierungsangaben möglich: 

WRITE(F,reeller Ausdruck; n : ra) 
druckt die reale Zahl nicht in Gleit- 
kommadarstellung (zum Beispiel 
1 00000E+2), sondern in Festkomma¬ 
darstellung. Dabei gibt n wieder die 
Mindestgröße des Feldes an, in das die 
Zahl ausgegeben wird, wohingegen m 
die Anzahl der angezeigten Nachkom¬ 
mastellen wiedergibt: 

WRITELN(1.2345 : 10: 5) 
ergibt die Ausgabe 
_1.23450 

(2) WRITELN(F) 

Wichtig ist die Tatsache, daß sich die 
Zeichen auf einem Textfile in Zeilen glie¬ 
dern. Mit dem Prozeduraufruf WRI- 
TELN(F) wird auf dem Textfile F ein Zei¬ 
lenende erzeugt. Technisch bewirkt 
dies die Ausgabe von ein oder zwei 
Steuerzeichen (CR, eventuell LF, car- 
riage return und line feed, also Wagen¬ 
rücklauf und Zeilenvorschub) auf das 
File F. 

Eine Folge von Ausgaben, wie 

WRITE(F,A); WRITE(F,B); WRITE(F, 
C); 

kann immer zusammengefaßt werden 
zu 

WRITE(F,A,B,C) 

Außerdem entspricht der Aufruf 
WRITELN(F,A,B,...) 
der Befehlsfolge 
WRITE(F,A,B,...);WRITELN(F) 

Somit erzeugt also die Ausgabe mit 
WRITELN immer einen Zeilenwechsel 
am Ende der Ausgabe. Natürlich muß 
vor allen Schreiboperationen das File F 
mit REWRITE(F) zum Schreiben eröff¬ 
net worden sein. Dabei werden wieder 
alle Zeichen, die eventuell zuvor in F 
existierten, gelöscht. Beabsichtigt man 
eine Ausgabe auf dem Standard-Aus¬ 
gabegerät (dem Bildschirm), so bietet 
sich als Filevariable die vordeklarierte 
Variable OUTPUT an. Diese kann man 
sich mit der Deklaration 
VAR OUTPUT: TEXT; 
vereinbart denken. In Wirklichkeit wird 
man jedoch in diesem Fall den Filepara¬ 
meter bei WRITE nicht angeben, und 
erhält somit die vereinfachte Syntax, 
die Sie bereits am Anfang des Artikels 
kennengelernt hatten: 

WRITE(OUTPUT, 'Hallo Bildschirm') 
läßt sich also ersetzen durch 
WRITE('Hallo Bildschirm'). 

(3) READ(F, Variable) 

Vom Textfile F werden Zeichenfolgen 
eingelesen und als Werte des Typs der 
Variablen interpretiert. Am besten kann 
man diese Umwandlung von Zeichen¬ 
folgen auf dem File in Werte, zum Bei¬ 
spiel des Typs INTEGER, an Beispielen 
verdeutlichen: 

VAR I: INTEGER; 

R: REAL; 

C: CHAR; 


PROGRAM TEXTFILES ( I NPUT, OUTPUT); 

PROCEDURE FORMATtVAR EINGABE, AUSGABE: TEXT; RECHTS: INTEGER); 

(* FORMATIERE VON EINGABE NACH AUSGABE AUF RECHTET RAND IN DER SPALTE *) 
(* RECHTS. LEERE ZEILEN, ODER ZEILEN MIT NUR EINEM WORT WERDEN NICHT *> 
( * VERÄNDERT. A) 


CONST 

TYPE 

VAR 


SPACE 
LINE INDEX 
LI NE 
BIS, I 
Z EI LE 
S 


P, Q 
T 


K, N 


1 . . 1 36; 

: ARRAY ILINEINDEXJ OF CHAR; 
LINEINDEX; 


1 NTEGER 
INTEGER 
INTEGER 
INTEGER 


INTEGER; 


( * LFD. ZEILENNUMMER 

<* ANZAHL DER EINZ UFÜGENDEN LEERZEICHEN IN ZEILE 
(* ANZAHL DER LEERZEICHEN NACH JEDEM WORT 
(* INDEX DES WORTES, NACH DEM ZUM 1. MAL 0 LEER- 
<* ZEICHEN EINGEFÜGT WERDEN SOLLEN 
<* ANZAHL DER WORTE IN DER ZEILE 


PROCEDIJUE READLiNE< VAR LASTCOLUMN.INTEGER; VAR WüRDS: INTEGER); 
(* KOMPLETTE ZEILE EINLESEN UND IN LINE (GLOBAL) SPEICHERN M 
(* IN LASTCOLUMN STEHT DAS LETZTE ZEICHEN UNGLEICH SPACE IM M 
i* TEXT. HINTER DEM TEXT EIN SPACE. WORD ZÄHLT DIE DURCH A ) 
<* LEERZEICHEN GETRENNTEN WORTE. A > 


LASTCOLUMN: =0; 


VAR 

WASSPACE, ISSPACE: 

BOOLEAN; 


I 

LINEINDEX; 

BEGI N 

CH 

CHAR; 

I: *1 

1 ; WASSPACE: = TRUE; 

WORDS: = 0; 


DO 


WHIl.E NOT EOLN( EINGABE) 

BEGIN 

READ( EINGABE, CH) ; LINEl I):* CH; 
ISSPACE: = OH »SPACE; 

IF NOT ISSPACE THEN 
BEGI N 

LASTCOLUMN: = I; 

IF WASSPACE THEN WORDS 
END; 

WASSPACE: = ISSPACE; I: = I 
END; 


WORDS +1; ( A WORTANFANG 


H 


LINElLASTCOLUMN♦1] 
END; (* READLINE A ) 


:= SPACE; READLN(EINGABE); 


PROCEDURE COPYWORD; 

(* AB DER MOMENTANEN POSITION IN LINE WORT MIT VORLAUFENDEM 
( A BIS ZUM NÄCHSTEN SPACE AUSGEBEN 
BEGIN 

WHILE LINElI)»SPACE DO 

BEGIN WRITE( AUSGABE, SPACE) ; I:* 1 + 1 END; 

REPEAT 

WRITE( AUSGABE, LINEl II ) ; I:«I+1 

UNTIL LINEl II »SPACE; 

END; (* COPYWORD *) 

PROCEDURE INSERTSPACES( N: INTEGER); 

<* N LEERZEICHEN AUSGEBEN *) 

BEGI N 

IF N> 0 THEN WRITE (AUSGABE, SPACE : N) 

END; (* INSERTSPACES *) 

BEGIN <* FORMAT <> 

RESET( EINGABE) ; RE WRI TE( AUSGABE) ; 

ZEILE: = 0; 

WHILE NOT EOF( EINGABE) DO 
BEGIN 

READLINEt BIS, N) ; ZEILE:* ZEILE + 1; 

S: = RECHTS-BIS; <* ANZAHL DER FEHLENDEN LEERZEICHEN *> 


SPACES *) 
*) 


Listing 3. Kopieren und Formatieren eines Textfiles 
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I: «1; 

IF <N<-1) OR <S<*0) THEN (* 1:1 KOPIEREN *) 

WHILE I< = BIS DO 

BEGIN HRITE( AUSGABE, LINEtll); I:« 1+1 END 

ELSE 

BEGIN (* BERECHE ANZAHL DER LEERZEICHEN UND VERTEILUNG: *) 

IF ODD( ZEILE) THEN 

BEGIN (.* VON LINKS EINFÜGEN *) 

P: * S DI V < N-1 ) ; 

Q: * P + 1 ; 

T: a P * ( N-1) + N - S 

END 
ELSE 

BEGIN (* VON RECHTS EINFÜGEN *) 

Q: - S DI V ( N-1) ; 

P: - Q +1 ; 

T: « S ♦ 1 - Q * ( N-1 ) 

END; 

FOR K: » 1 TO N-1 DO (* HORTE KOPIEREN UND ERWEITERN *) 

BEGIN 

COPYHORD; 

IF K> =T THEN INSERTSPACES(Q) 

ELSE INSERTSPACES(P) 

END; 

COPYHORD; <* LETZTES HORT *) 

END; <* IF *) 

HRITELN(AUSGABE); 

END; ( * HHILE NOT EOF. . . *) 

END; (* FORMAT *) 

BEGIN 

FORMATt INPUT, OUTPUT, 40) ; 

END. 

Listing 3. Kopieren und Formatieren eines Textfiles (Schluß) 


Befindet sich auf dem File F folgende 
Zeichenfolge: 

1234 34.55X 

so bewirkt der Prozeduraufruf READ 
(F,I,R,C) folgende Zuweisungen: 
I:=1234; R:=34.55; C:='X' 

Ist der Parameter bei READ eine 
ganze oder reelle Zahl, so werden zu¬ 
nächst Leerzeichen und Zeilenwechsel 
ignoriert. Anschließend wird eine Zif¬ 
fernfolge eingelesen und der entspre¬ 
chende Wert der Variablen zugewie¬ 
sen. Eine nachfolgende READ- 
Operation verarbeitet das Zeichen, das 
direkt hinter der gelesenen Zahl 
beginnt. Daher besitzt die Variable C im 
obigen Beispiel den Wert »X«. 

(4) READLN(F) 

Vom File F werden solange Zeichen 
eingelesen, bis ein Zeilenende erkannt 
wurde. Der nächste Aufruf der Prozedur 
READ mit dem File F liest das erste Zei¬ 
chen der folgenden Zeile. Es gibt eben¬ 
falls ein Standardfile zur Eingabe, das 
folgendermaßen vordeklariert ist: 

VAR INPUT: TEXT; 

Wiederum kann man Eingaben von 
der Tastatur als Standard-Eingabe auch 
ohne Angabe einer Filevariablen errei¬ 
chen. READ(INPUT,I,R,C) entspricht 
READ(I,R,C) und liest drei Werte von 
der Tastatur. 

(5) EOLN(F) 

Die Standardfunktion EOLN, ange¬ 
wandt auf ein Textfile F, liefert einen 
booleschen Wert. Er ist genau dann 
TRUE, falls bei der letzten Eingabe vom 
File F das Zeilenende erreicht wurde. 
Bitte beachten Sie, daß Sie beim Ein¬ 
lesen nie die oben genannten Steuer¬ 
zeichen (Zeilenwechsel oder Wagen¬ 
rücklauf) erhalten, da diese vom Pascal- 
Laufzeitsystem automatisch in Leerzei¬ 
chen (blanks) umgewandelt werden. 

Nach diesen zugegebenermaßen 
recht detaillierten Ausführungen über 
Textfiles in Pascal sollen Sie zur Beloh¬ 
nung auch ein wirklich sinnvolles Pro¬ 
gramm kennenlernen. Es kopiert einen 
Text von einem Textfile zu einem ande¬ 
ren und formatiert dabei Zeilen rechts¬ 
bündig (Listing 3). 

Die Prozedure FORMAT wird mit drei 
Parametern aufgerufen. EINGABE liest 
den zu formatierenden Text und 
schreibt ihn auf AUSGABE. RECHTS 
enthält die Spalte, in der jede Zeile 
enden soll. Für einen Testlauf können 
Sie RECHTS beispielsweise auf 40 Zei- 
chen setzen 

Nachdem EINGABE und AUSGABE 
korrekt zum Lesen und Schreiben eröff¬ 
net wurden, wird jeweils eine Zeile mit 
READLINE eingelesen, entschieden, 
ob die Zeile formatiert werden muß und 
schließlich die formatierte Zeile ausge¬ 
geben. Beim Einlesen (READLINE) wird 
der Text in einen Zeilenpuffer LINE 
geschrieben. Alle Indizes in diesem 


ARRAY von Zeichen sind als Aus¬ 
schnittstypen 
TYPE LINEINDEX = 1..136 
deklariert. Außerdem bestimmt READ¬ 
LINE die Anzahl der Worte in der Zeile 
und die letzte Spalte, in der ein Buch¬ 
stabe stand. Diese Werte kommen als 
Variablenparameter zurück. Anschlie¬ 
ßend wird die Anzahl der Leerzeichen 
bestimmt, die in die Zeile einzufügen 
sind, damit das letzte Zeichen in Spalte 
RECHTS erscheint. Enthält die Zeile 
nur ein Wort oder fehlen keine Leerzei¬ 
chen, so kann der Zeilenpuffer LINE 
ohne Änderung ausgegeben werden. 

Ansonsten beginnt die eigentliche 
Formatierung. Dabei sollten Sie vermei¬ 
den, daß sich die Worte alle am rechten 
und linken Rand sammeln. Daher wer¬ 
den in Zeilen mit ungerader Zeilennum¬ 
mer (»ODD(ZEILE) =TRUE«) Leerzei¬ 
chen von links eingefügt, sonst jedoch 
von rechts. 

Ein Beispiel: Steht in einer Zeile 11 
Mal das Zeichen A mit einem Zwischen¬ 
raum und ist RECHTS=40, so müssen 
18 Leerzeichen auf 10 Wortzwischen¬ 
räume verteilt werden. Ein Teil der Zwi¬ 
schenräume wird also um ein Leerzei¬ 
chen, der Rest um zwei Leerzeichen 
erweitert. Im Programm übernehmen 
diese Verteilung die Variablen P, Q und 
T. Die ersten Worte werden mit P Leer¬ 
stellen am Ende erweitert, während ab 
dem T-ten Wort Q Leerstellen angefügt 
werden. In der FOR-Schleife enthält 
also K die Nummer des gedruckten 
Wortes. 

Nach diesen Ausführungen kennen 
Sie die Logik des Programmes, so daß 
Sie noch ein paar technische Details 


zum Thema Textfiles aufnehmen kön¬ 
nen: Zunächst erkennen Sie am Aufruf 
»FORMAT(INPUT, OUTPUT, 40)« den 
Nutzen der vordefinierten Textfiles 
IN PUT und OUTPUT, die ja auch im Pro¬ 
grammkopf angegeben werden. Mit 
ihnen kann man die Tastatur und den 
Bildschirm wie ein normales File 
ansprechen. Bei der Prozedur READ¬ 
LINE wird die Funktion EOLN(Eingabe) 
zum Erkennen des Zeilenendes be¬ 
nutzt. Damit nach der Bearbeitung der 
ersten Zeile beim nächsten Aufruf die 
folgende Zeile weiterbearbeitet wird, 
muß am Ende der Aufruf READLN(EIN- 
GABE) stehen. Die Prozedur INSERT- 
SPACES verwendet die Angabe eines 
Formatierungsparameters nach dem 
Doppelpunkt, um eine definierte Anzahl 
von Leerzeichen zu drucken: 

WRITE(AUSGABE, ' ': N) 
druckt ein Leerzeichen rechtsbündig in 
einem Feld der Größe N. Somit werden 
insgesamt N Leerzeichen ausgegeben. 
Schließlich erfolgt nach der Ausgabe 
jeder Zeile der Aufruf WRITELN(AUS- 
GABE). Damit wird auf dem File AUS¬ 
GABE ein Zeilenwechsel erzeugt, um 
die Zeilenstruktur des Files EINGABE 
zu erhalten. 

Damit ist die Diskussion des Daten¬ 
typs File und speziell der Textfiles been¬ 
det. Als Übung können Sie versuchen, 
das Programm in Listing 3 so zu verän¬ 
dern, daß es jede Zeile zentriert druckt. 
Sie können also die Prozedur READ¬ 
LINE wieder verwenden, jedoch dafür 
sorgen, daß die fehlenden Leerstellen 
zur Hälfte vor dem ersten Wort gedruckt 
werden. 

(Florian Matthes/ev) 
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Von Zeigern, 
listen und Graphen 
(Pascal, Teil 4) 


Der letzte Beitrag unserer Einfüh¬ 
rung in die Programmiersprache 
Pascal beschäftigt sich mit ei¬ 
nem nicht ganz einfachen, aber 
sehr interessanten Thema: den 
dynamischen Datenstrukturen. 

D ie Beschreibung der dynami¬ 
schen Datenstrukturen steht 
grundsätzlich am Ende jeder 
Einführung in Pascal. Dies liegt einer¬ 
seits daran, daß es sich dabei um ein 
besonders leistungsfähiges Sprachele- 
ment handelt, andererseits möchte man 
den Anfänger erst zum Schluß mit 
einem völlig neuen Verfahren zur 
Behandlung von Variablen konfrontie¬ 
ren. Haben Sie also in den vorherge¬ 
henden Artikeln Ihre ersten Schritte in 
Pascal gemeistert, dürfen Sie an dieser 
Stelle nicht frustriert zur Überzeugung 
gelangen, daß Pascal viel zu kompliziert 
und unverständlich ist. Vielmehr sollten 
Sie, nachdem Sie das bisher Gelernte in 
eigenen Programmen verwendet 
haben, mit diesen Erfahrungen den 
letzten Teil zur Fortbildung nutzen. 
Sicherlich gibt es auch einige Leser, die 
bisher zwar in Pascal programmiert 
haben, dabei jedoch einen weiten 
Bogen um Pointervariablen geschlagen 
haben. Für diese beginnt jetzt wohl der 
eigentlich interessante Teil der Artikel¬ 
serie. 

Alle bisher behandelten Datentypen 
und Variablen waren statisch. Am 
Beginn jedes Blockes wurden die loka¬ 
len Variablen angelegt und waren über 
ihren Namen veränderlich, bis der Block 
wieder verlassen und das Ende der Gül¬ 
tigkeit der Variablen erreicht wurde. 
Diese Variablenverwaltung hat zur 
Folge, daß bereits zur Übersetzungs¬ 
zeit der Compiler eine Speicherplatz¬ 
verwaltung durchführen kann. Außer¬ 
dem entspricht jedem Variablennamen 
ein (eventuell zusammengesetzter) 
Wert, jedoch gibt es auch gravierende 
Nachteile. Jedes Array besitzt eine 
feste Größe (es gibt keinen variablen 
DIM-Befehl wie zum Beispiel in Basic), 
so daß man oft entweder ein zu kleines 
Array definiert oder unnötig Speicher¬ 
platz verschwendet. 


Man möchte also zur Laufzeit des 
Programms dynamisch entscheiden, 
ob Speicherplatz für eine Variable anzu¬ 
legen ist oder ob eine bestehende 
Variable gelöscht werden soll. Außer¬ 
dem möchte man auf diese dynamisch 
erzeugten Variablen gezielt zugreifen. 
Andererseits will man nicht auf die 
Typüberprüfungen des Compilers ver¬ 
zichten. Die Lösung des Dilemmas 
besteht darin, Variablen nicht mehr 
durch Namen, sondern durch Zeiger zu 
identifizieren. 

Betrachten wir ein konkretes Bei¬ 
spiel. Es soll eine Kundenliste gebildet 
werden. Von jedem Kunden wird Name 
und Kundennummer gespeichert. Da 
die Anzahl der Kunden (in der Zukunft) 
unbekannt ist, scheidet ein Array von 
Kundenrecords als Datenstruktur aus. 
Statt die Daten auf einem langsamen 
externen Datenspeicher als File abzule¬ 
gen, wird eine Liste mit Zeigern gebildet 
(Bild 1). Bildlich gesprochen entspricht 
jeder Record einem Kasten, der alle 
Daten eines Kunden enthält. Um nun 
einen Record im Programm anzuspre¬ 
chen, benutzt man keinen Variablenna¬ 
men, sondern einen Zeiger auf diesen 
Kasten. 

TYPE KUNDENZEIGER = t KUNDE; 

KUNDE = RECORD 

NAME: ARRAY[1..10] 
0F CHAR; 

KNUMMER: INTEGER; 
NAECHSTER: KUNDEN¬ 
ZEIGER; 

END; 

VAR KUNDEI, KUNDENEU, LETZTER: 

KUNDENZEIGER; 

In Bild 1 zeigt also der Zeiger 
KUNDEI auf den ersten Kundenre¬ 
cord. Von dort führt ein weiterer Zeiger 
zum nächsten Kundenrecord und so 
weiter. Jeder Zeiger (pointer) ist an 
einen Typ gebunden. So kann also eine 
Variable vom Typ KUNDENZEIGER nur 
auf einen Record vom Typ KUNDE wei¬ 


sen. Die Liste in Bild 1 ist also über 
einen Zeiger (KUNDEI) zugänglich. 
Indem man den Zeigern von Record zu 
Record folgt, kann man nacheinander 
jeden Record in der Liste adressieren. 

Die obige Variablendeklaration defi¬ 
nierte jeweils nur Speicherplatz für Zei¬ 
ger auf Kundenrecords, jedoch keine 
Records selbst. Dies geschieht erst 
während der Programmausführung mit 
der Standardprozedur NEW: 

NEW(KUNDEI) 

Damit reserviert man irgendwo im 
Hauptspeicher des Rechners Spei¬ 
cherplatz für eine Variable des Typs, auf 
den die Pointervariable KUNDEI zeigt. 
Um diesen neu erzeugten Kundenre¬ 
cord zu adressieren, wird gleichzeitig 
dem Zeiger KUNDEI die Adresse die¬ 
ses Records zugewiesen (Bild 2a). 
Jetzt kann man der so erzeugten Varia¬ 
blen Werte übergeben: 

KUNDEI I .NAME:= 'MAIER '; 
KUNDEI I .KNUMMER:= 100; 

Während KUNDEI eine Zeigervaria¬ 
ble (vom Typ KUNDENZEIGER) ist, 
bezeichnet KUNDE! eine Variable des 
Typs KUNDE. Indem man also den Pfeil 
hinter eine Zeigervariable stellt, erhält 
man die dynamische Variable, auf die 
die Pointervariable zeigt. Man bezeich¬ 
net deshalb den Pfeil auch als 
»Dereferenzier-Operator«. 

Da KUNDEI I eine (dynamische) 
Recordvariable ist, folgen nach einem 
Punkt wie üblich die Feldnamen des 
Records. Damit erhält man den Zustand 
aus Bild 2b. Um einen weiteren Kunden 
in die Liste aufzunehmen, ist zunächst 
wieder Speicherplatz zu reservieren. 
NEW(KUNDENEU) 

Wie oben kann man jetzt diesen 
Record mit Werten füllen (2c): 
KUNDENEUt .NAME:= 'MÜLLER '; 
KUNDENEUI .KNUMMER:= 200; 

Schließlich soll KUNDENEU als 
Nachfolger von KUNDEI eingetragen 
werden. Hierzu wird im Feld NAECH- 



Bild 1. Eine Liste mit Zeigern 
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STER des Records, der durch KUNDEI 
referiert wird, der Zeiger KUNDENEU 
eingetragen (Bild 2d). 

KUNDEll .NAECHSTER:= KUNDENEU 

Um den letzten Record hinter KUN¬ 
DENEU einzufügen, kann man folgende 
Anweisungsfolge verwenden: 

NEW(LETZTER); 

LETZTER t .NAME: ='SCHULZE *; 

LETZTER! .KNUMMER:=300; 

KUNDENEUt .NAECHSTER:= LETZTER 

Damit ergibt sich eine Liste wie in Bild 
2e. Wie erkennt man nun aber das Ende 
der Liste? Man muß wissen, ob das Feld 
NAECHSTER einen gültigen Zeiger 
enthält. Um anzuzeigen, daß ein Zeiger 
auf keine dynamische Variable weist, 
verwendet man den Wert NIL. Diese 
Konstante darf jeder Zeigervariablen 
zugewiesen werden. Mit 
LETZTER!.NAECHSTER:=NIL 
gibt man also an, daß nach LETZTER t in 
der Liste kein Record mehr folgt. 

Bisher programmierten wir alle Einfü¬ 
gungen in die Liste »zu Fuß«. Ein kom¬ 
plettes Programm zur Verwaltung einer 
Kundenliste zeigt Listing 1. Es spei¬ 
chert die Kunden in alphabetischer Rei¬ 
henfolge. Zusätzlich existieren am 
Anfang und Ende der Liste je ein leerer 
Record. Damit ergibt sich eine Listen¬ 
struktur wie in Bild 3. Die Zeiger KOPF 
und ENDE weisen immer auf die beiden 
leeren Records. Im folgenden werden 
alle Funktionen des Programms anhand 
von Abbildungen erklärt. 

Am einfachsten ist die Ausgabe der 
Tabelle (Bild 4a), siehe Prozedur 
TABELLE in Listing 1: Man durchläuft 
mit dem Zeiger Z die gesamte Liste und 
zeigt den jeweiligen Kundenrecord an. 
Mit 

Z:= KOPF! .NAECHSTER 

wird zunächst der leere (schraffierte) 
Record am Listenanfang übersprun¬ 
gen. Solange der Zeiger Z nicht mit dem 
Zeiger ENDE übereinstimmt, wird der 
Record Z! (nicht der Zeiger Z!) ange¬ 
zeigt. »Z:= ZI .NAECHSTER« führt 
schließlich von jedem Record zu sei¬ 
nem Nachfolger in der Liste. 

Die Prozedur EINGABE liest 
zunächst von der Tastatur einen Namen 
ein. Dann wird durch den Aufruf der Pro¬ 
zedur VORHANDEN geprüft, ob dieser 
Name bereits in der Liste steht. Ist dies 
der Fall, so endet die Eingabe. Anson¬ 
sten wird dann ein neuer Record NEU 
geschaffen und mit Namen und Kun¬ 
dennummer gefüllt (Bild 4b). Da die 
Liste alphabetisch sortiert bleiben soll, 
muß NEU direkt hinter dem alphabeti¬ 
schen Vorgänger eingehängt werden. 
Daher liefert die Prozedur VORHAN¬ 
DEN einen Zeiger VOR, der in jedem 
Fall auf den Vorgänger in der Liste zeigt. 
Die Einfügung selbst geschieht dann in 
zwei Schritten. Zunächst wird der Zei¬ 
ger NAECHSTER im neuen Record auf 
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Bild 2. Operationen in der Liste (siehe Text) 


PROGRAX KUNDENLISTE (INPUT, OUTPUT); 

(.* BEISPIEL FÜR DIE VERHALTUNG EINER LISTE MIT DYNAMISCHEN VARIABLEN *) 
(* DIE DATEN VOM TYP KUNDE HERDEN STÄNDIG SORTIERT IN EINER EINFACH *) 
<* VERKETTETEN LISTE GESPEICHERT. JEDER RECORD BESITZT DAZU EINEN *) 
(* ZEIGER AUF DEN ALPHABETISCHEN NACHFOLGER. UM DAS EINFÜGEN UND *) 
<* LÖSCHEN EINFACH ZU GESTALTEN, BESITZT DIE LISTE JE EINEN LEEREN *) 
(* RECORD AM ANFANG UND ENDE. *) 


CONST LEN = 10; 


(* LÄNGE EINES NAMENS IN ZEICHEN 


TYPE STRING - ARRAY (1..LEN1 OF CHAR; 

KUNDENZEIGER - ~ KUNDE; 

KUNDE = RECORD N 

NAME : STRING; 

KNUMMER : INTEGER; 

NAECHSTER: KUNDENZEIGER; 

END; 

VAR KOPF: KUNDENZEIGER; (* ZEIGER AUF DEN ERSTEN RECORD IN DER LISTE *) 

ENDE: KUNDENZEIGER; (* ZEIGER AUF DEN LET2TEN RECORD *) 

CH : CHAR; <* BENUTZEREINGABE *) 

PROCEDURE READSTRING (VAR S: STRING); 

<* STRING MIT LEN ZEICHEN VON DER TASTATUR LESEN *) 

VAR I: INTEGER; 

C: CHAR; 

BEGIN 

REPEAT READ(C) UNTIL C<>’ ’; <* VORLAUFENDE LEERZEICHEN IGNORIEREN *) 

I: »1; 


<* S MIT LEERZEICHEN AUF DIE VOLLE 
(* LÄNGE ERHEITERN 


REPEAT (* LEN ZEICHEN ODER BIS ZUM ZEILENENDE *) 

Sl 11 : * C; I: - 1 + 1; 

READ( C) 

UNTIL ( I > LEN) OR EOLN; 

HHILE I< LEN DO <* S MIT LEERZEICHEN AUF DIE VOLLE *> 

BEGIN <* LÄNGE ERHEITERN *) 

SI 11: » ' ' ; I: - 1 + 1; 

END; 

READLN 

END; (* READSTRING *) 

FUNCTION VORHANDEN ( S: STRING; VAR Z: KUNDENZEIGER): BOOLEAN; 

<* SUCHT DEN NAMEN S IN DER LISTE. ERGEBNIS * TRUE, FALLS S GEFUNDEN *) 
<* HÜRDE. Z ZEIGT BEI DER RÜCKKEHR IMMER AUF DIE POSITION DES ALPA- *) 
<* BETISCHEN VORGÄNGERS. *> 

VAR ZI: KUNDENZEIGER; <* ZI STEHT IMMER EINEN RECORD HEITER ALS .*) 

(* DER ZEIGER Z *> 

BEGI N 

Z: = KOPF; ZI:* KOPF *. NAECHSTER; <* ZI ZEIGT AUF ERSTEN GÜLTIGEN *) 

( * RECORD IN DER LISTE *) 


ENDE . NAME: *S; 


(* MARKE IM LEZTEN RECORD DER LISTE*) 


HHILE ZI . NAME< S DO (* HANDERE MIT ZI DURCH DIE LISTE, *) 

BEGIN <* BIS POSITION VON S ERREICHT *) 

Z: * ZI ; ZI : = ZI*. NAECHSTER 
END; 

(* GEFUNDEN, FALLS NAMEN GLEICH UND NICHT MARKE ERREICHT 
VORHANDEN:* <Z1 Ä .NAME*S> AND ( Z1 < > ENDE) ; 

END; (* VORHANDEN *) 

PROCEDURE DRUCKE (Z: KUNDENZEIGER); 

Listing 1. Kundenverwaltung mit Listenstruktur 
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BEGI N 

WITH Z" DO 

WRITELN( ' NAME: ' , NAME: LEN + 2, 1 NUMMER: 1 , KNUMMER : 5) 

END; ( * DRUCKE *) 


PROCEDURE EINGABE-, 

(a EINFÜGEN EINES NEUEN KUNDENRECORDS AN DER KORREKTEN POSITION IN *) 
(* DER KUNDENLISTE ZWISCHEN VON UND BIS A ) 

VAR N : STRING; (* NEUER NAME M 

NEU: KUNDENZEIGER; (* ZEIGER AUF DEN NEUEN RECORD A > 

VOR: KUNDENZEIGER; <* ZEIGER AUF DEN VORGÄNGER IN DER LISTE *) 

B$GIN 

WRITE< 1 NAME: • ) ; RE ADSTRI NG( N) ; 

IF VORHANDEN ( N, VOR) THEN (* VOR WIRD HIER GESETZT! M 

WRITELN« N, 1 IST BEREITS KUNDE! 1 ) 

ELSE 
BEGI N 

NEW (NEU); (* NEUEN RECORD BESORGEN *) 

WRITE ( 1 KUNDENNUMMER: 1 ) ; 

READLN (NEU".KNUMMER); (* UND MIT WERTEN BELEGEN: *) 

NEU". NAME: = N; 


(* NEU" HINTER VOR" EINFÜGEN: *) 

NEU". NAECHSTER: = VOR". NAECHSTER; 

VOR". NAECHSTER:= NEU 
END; 

END; (* EINGABE *) 

PROCEDURE AUSGABE; 

(* AUSGABE EINES KUNDENRECORDS *> 

VAR N : STRING; 

VOR: KUNDENZEIGER; <* ZEIGER AUF ALPHABETISCHEN VORGÄNGER *) 

BEGI N 

WRITE ( 1 NAME: 1 ); 

RE ADSTRI NG( N) ; 

IF VORHANDEN ( N, VOR) THEN <* VOR WIRD AUF DEN VORGÄNGER GESETZT! *) 
DRUCKE ( VOR". NAECHSTER) 

ELSE 

WRITELN (N, ' NICHT ALS KUNDE GESPEICHERT! 1 ); 

END; ( * AUSGABE *) 


PROCEDURE LOESCHEN; 

(* LOESCHEN EINES KUNDENRECORDS IN DER LISTE *> 

VAR N : STRING; 

VOR: KUNDENZEIGER; <* WIEDERUM ZEIGER AUF DEN VORGÄNGER IN *) 
(* DER LISTE DER KUNDEN *) 

BEGI N 

WRITE( 1 NAME: 1 ) ; RE ADSTRI NG( N) ; 

IF VORHANDEN« N, VOR) THEN <* VOR WIRD AUF DEN VORGÄNGER GESETZT *) 
BEGI N 

WRITELN ('GELÖSCHT WURDE: 1 ); 

DRUCKE (VOR". NAECHSTER); (* ZUR SICHERHEIT ANZEIGEN *) 

<* JETZT DEN NACHFOLGER VON VOR" AUS DER LISTE ENTFERNEN: *) 

VOR". NAECHSTER: = VOR". NAECHSTER". NAECHSTER; 

END 

ELSE 

WRITELN ( N, 1 NICHT ALS KUNDE GESPEICHERT! 1 ); 

END; (* LOESCHEN *) 


PROCEDURE TABELLE; 

(* DRUCKE EINE ALPHABETISCHE AUFLISTUNG ALLER KUNDEN *) 

VAR Z: KUNDENZEIGER; 

BEGI N 

Z:« KOPF".NAECHSTER; (* Z AUF DEN ERSTEN BELEGTEN RECORD M 

WHILE ZOENDE DO (* SOLANGE NICHT DER LETZTE (LEERE) *) 

BEGIN ( * RECORD ERREICHT WIRD: *) 

DRUCKE« Z); (* ANZEIGE Z" *> 

Z: * Z". NAECHSTER; (* ZUM NÄCHSTEN KUNDEN *) 

END; 

END; ( A TABELLE M 
BEGIN (* HAUPTPROGRAMM *) 

NEW(KOPF); NEW(ENDE); (* ERSTEN UND LETZTEN RECORD BILDEN *) 

KOPF". NAECHSTER: * ENDE; ( * ENDE DIREKT NACK DEM KOPF, ALSO IST *) 

(* DIE LISTE LEER *) 


REPEAT 

WRITELN« *E INGABE L OESCHEN 1 ) ; 

WRITELN« ’A USGABE T ABELLE 1 ); 

WRITELN« 1 X BEENDEN 1 ) ; 

READLN« CH) ; 

IF CH IN ( 1 E* , 1 A 1 , 1 L* , 1 T 1 , 1 X* 1 THEN 
CASE CH OF 

• E 1 : EINGABE; 

• A 1 : AUSGABE; 

• L 1 : LOESCHEN; 

• T 1 : TABELLE; 

• X 1 : ( * NICHTS *) 

END (* CASE *) 

ELSE 

WRITELN« CH , 1 IST NICHT MÖGLICH! 1 ); 

UNTIL CH» 1 X 1 
END; 

Listing 1. Kunctenverwaltung mit Listenstruktur (Schluß). Das Zeichen »~« entspricht 
dem Hochpfeil (»!«) 


den Nachfolger des Records VORI 
gesetzt. Dann kann der Zeiger NAECH¬ 
STER in VOR t auf den Wert des Zeigers 
NEU gesetzt werden. Damit ergibt sich 
eine Liste wie Bild 4c. Dort sind die 
geänderten Zeiger fett gezeichnet. 

Um in der Prozedur AUSGABE zu 
einem Namen den zugehörigen Kun¬ 
denrecord in der Liste zu finden, dient 
ebenfalls die Funktion VORHANDEN. 
Da sie jedoch immer einen Zeiger auf 
den Vorgänger liefert, muß der Record 
VOR t.NAECHSTER verwendet 

werden. 

Ebenso einfach ist das Löschen 
eines Kunden. In der Prozedur LOE¬ 
SCHEN wird wieder mit VORHANDEN 
ein Zeiger auf den Vorgänger in der 
Liste gesetzt. Mit 

VORt.NAECHSTER:=V0Rf.NAECHSTERI. 
NAECHSTER 

wird im Record VORI der Zeiger auf 
den übernächsten Nachfolger gerichtet 
(fette Linie in Bild 4d). 

Jetzt ist es an der Zeit, uns mit der 
Funktion VORHANDEN näher zu befas¬ 
sen. Sie durchsucht die alphabetisch 
sortierte Liste nach dem Namen S. Wird 
ein Record mit NAME=S gefunden, so 
ist VORHANDEN gleich TRUE. Der Zei¬ 
ger Z weist dann auf den Vorgänger die¬ 
ses Records. Ist jedoch VORHANDEN 
gleich FALSE, so existiert kein Kunde 
mit dem Namen S. Jetzt zeigt Z auf den 
Record, hinter dem ein neuer Record 
eingefügt werden müßte, um die alpha¬ 
betische Ordnung zu erhalten. In Bild 
4e ist gezeigt, daß zwei Zeiger Z und ZI 
verwendet werden. Man durchläuft wie 
bei der Prozedur TABELLE die Liste bis 
gilt: 

Zit.NAME > =S 

Dabei hinkt der Zeiger Z immer einen 
Record hinter dem Zeiger ZI her. Ist die 
obige Bedingung eingetreten, so zeigt 
Z auf den alphabetischen Vorgänger. 
Um zu verhindern, über das Listenende 
hinauszulaufen, wird am Anfang der 
letzte (unbenutzte) Record mit dem 
gesuchten Namen gefüllt: 

ENDE!.NAME:=S; (z.B. S='SCHULZE') 

Damit bricht die WHILE-Schleife 
sicher für ZI=ENDE ab. Einen solchen 
Eintrag zur Vereinfachung des 
Abbruchkriteriums bezeichnet man als 
Marke. Das boolesche Ergebnis der 
Funktion bestimmt also abschließend 
die folgende Zuweisung: 

VORHANDEN:= (Zlt.NAME=S) AND 
(Zl<> ENDE) 

Am Programmanfang wird mit 
NEW(KOPF); NEW(ENDE); 

KOPF t.NAECHSTER:= ENDE 
eine Liste mit zwei unbenutzten 
Records erzeugt. Durch diese Initiali¬ 
sierung findet Einfügen und Löschen 
immer zwischen zwei Records statt. 
Wären diese Hilfsrecords nicht vorhan- 

















den, so müßte man zum Beispiel beim 
Löschen immer die Sonderfälle 
Löschen am Listenanfang oder 
Löschen des einzigen Elements in der 
Liste prüfen, da in diesen Fällen auch 
die Zeiger KOPF und ENDE verändert 
werden müßten. 

Jetzt sollten Sie sich zunächst etwas 
Zeit nehmen, alle diese Informationen 
zu verdauen und sich genauer mit dem 
Listing 1 auseinandersetzen. Dann füh¬ 
ren Sie einen kleinen Verständnistest 
durch: 

1. Was ist der Unterschied zwischen 
den folgenden Zuweisungen? 

KOPF := ENDE und 

KOPFl := ENDE!? 

2. Ändern Sie das Programm so, daß 
die Namen in umgekehrter alphabeti¬ 
scher Reihenfolge (SCHULZE, MUEL- 
LER, MAIER) in der Liste gespeichert 
werden! 

Zur Beantwortung der ersten Frage 
blättern Sie bei Bedarf zum Anfang der 
Ausführungen über Zweigvariablen 
zurück. Die zweite Aufgabe besteht 
»nur« in der Änderung der Funktion 
VORHANDEN. 

Es gibt sehr viele verschiedene 
Varianten mit dem Konzept der Spei¬ 
cherung von Daten in Listen. Sie unter¬ 
scheiden sich in der Methode, wie die 
Records durch Zeiger verkettet sind. Im 
Beispiel der Kundenliste kann man 
ohne Probleme von jedem Kunden zu 
seinem alphabetischen Nachfolger 
gelangen. Jedoch erreicht man den 
Vorgänger im Alphabet nur, indem man 
die Liste vom Kopf her durchläuft. Eine 
naheliegende Lösung besteht darin, 
jeden Record um einen Zeiger auf den 
Vorgänger zu erweitern: 

TYPE KUNDENZEIGER = KUNDE; 

KUNDE = RECORD 
NAME : ARRAY 

[1..10] OF CHAR; 
KNUMMER : INTEGER; 
VORIGER : KUNDENZEIGER; 
NAECHSTER: KUNDENZEIGER; 

END; 

Diese Verkettung erlaubt zwar ein 
Durchlaufen der Liste vorwärts wie 
rückwärts, jedoch werden die Operatio¬ 
nen zum Einfügen und Löschen 
wesentlich komplexer, da sie zwei Ver¬ 
kettungen aktualisieren müssen. Eine 
solche doppelt verkettete Liste zeigt 
symbolisch das Bild 5. 

Es gibt noch viele andere Methoden, 
Datenstrukturen mit Zeigern zu bilden 
(zum Beispiel Bäume), in denen man 
sehr effizient Werte sortiert einfügen, 
suchen und löschen kann. Da dieses 
Themengebiet sehr umfangreich ist 
und wirklich gute Literatur über dieses 
Thema existiert [1], sollen die letzten 
Beispiele mit Zeigern andere Anwen¬ 
dungen zeigen. 

Zunächst wird ein Verfahren vorge¬ 


stellt, das Werte so speichert, daß man 
ohne Suchen in einem Schritt einen vor¬ 
gegebenen Wert wiederfindet. Die 
angenommene Aufgabe besteht darin, 
für eine Anzahl von Orten die Postleit¬ 
zahl abzulegen. Man soll also einerseits 
neue Orte mit ihrer Postleitzahl einge¬ 
ben können und andererseits zu einem 
vorgegebenen Namen die gespei¬ 
cherte Postleitzahl (falls gespeichert) 
erhalten. 

Bei der Speicherung mit dynami¬ 
schen Variablen im Programm KUN¬ 
DENLISTE trat das Problem auf, daß 
man sich erst mit einer (linearen) Suche 
durch die Liste bewegen muß, um einen 
Kundenrecord zu finden. Dabei muß 
man bei n gespeicherten Werten im 
Durchschnitt n/2 Vergleiche aufwen¬ 
den. Optimal wäre eine Speicherungs¬ 
methode, bei der man direkt aus dem 
Suchschlüssel einen Verweis auf die 
gespeicherten Informationen erhält. 
Diese Anforderung erfüllt das soge¬ 
nannte »Hashing«: Man speichert alle 
Daten in einer Hash-Tabelle. Das ist ein 
Array, das mit ganzen Zahlen indiziert 
wird: 

CONST HASHSIZE = 97; 

TYPE INFO = INTEGER; (* POSTLEIT¬ 
ZAHL *) 

VAR HASHTAB = ARRAY[0..HASH¬ 
SIZE] OF INFO; 

Nun sollen im vorliegenden Beispiel 
als Schlüssel zwanzigstellige Städtena¬ 
men verwendet werden. Man steht also 
vor dem Problem, aus einem String der 
Länge 20 einen eindeutigen Index zwi¬ 
schen 0 und 1000 zu erzeugen. Eine 
solche Hash-Funktion - Schlüssel- 
transformations-Funktion - gibt das 
Programm in Listing 2 unter dem 
Namen HASHINDEX wieder. Zunächst 
wird die Summe aller Codezahlen der 
Zeichen berechnet: 

F = 70 
R = 82 
A = 65 
N = 78 
K = 75 
F = 70 
U = 85 
R = 82 
T = 84 
_ = 32 
- = 32 

_ = 32 


1043 

Anschließend wird dieser Index 
durch die Tabellengröße geteilt. Der 
Divisionsrest ist eine Zahl zwischen 0 
und der Tabellengröße und kann somit 
direkt als Index gelten. 

1034 / 97 = 10 REST 73 
Um die Postleitzahl für Frankfurt 
(6000) zu speichern, sind folgende 
Schritte erforderlich: 


INDEX:=HASHINDEX('FRANKFURT '); 

HASHTAB[INDEX] := 6000 

Index besitzt also den Wert 73. 
Genauso einfach ist es, die Postleitzahl 
für Frankfurt anzuzeigen: 

INDEX:=HASHINDEX('FRANKFURT '); 

WRITELN('PLZ;', HASHTAB[INDEX]; 

Das Verfahren besitzt jedoch einen 
gravierenden Nachteil. Die Hashfunk- 
tion, die zu einem Städtenamen einen 
Index zwischen 0 und HASHSIZE 
bestimmt, muß nicht eindeutig sein. Es 
kann also durchaus sein, daß es einen 
weiteren Städtenamen (sagen wir X- 
Stadt) gibt, der bei der obigen Berech¬ 
nung ebenfalls den Index 73 ergibt. 
Dann kommt es in der Hashtabelle zu 
einer Kollision (»hash clash«). In diesem 
Fall ist es mit der obigen Datenstruktur 
unmöglich festzustellen, ob in HASH- 
TAB[73] die Postleitzahl von Frankfurt 
oder X-Stadt steht. Im Programm nach 
Listing 2 wird das bisherige Konzept 
deshalb folgendermaßen modifiziert: 
TYPE HASHELEMENT = RECORD 

NAME: STRING; 

PLZ : INTEGER; 

NEXT:tHASHELEMENT 
END; 

VAR HASHTAB: ARRAY[0..HASHSIZE] 0F 
tHASHELEMENT; 

Man speichert in der Hashtabelle nur 
einen Zeiger auf einen Record vom Typ 
Hashelement. Dieses Record enthält 
neben der eigentlichen Information 
(PLZ) noch den Name der Stadt. Ein 
Record vom Typ HASHELEMENT ist 
natürlich nur dann erforderlich, falls 
eine Postleitzahl gespeichert werden 
soll. Ansonsten besitzt der Zeiger in 
HASHTAB den Wert NIL. Diese Vorbele¬ 
gung führt am Programmanfang die Pro- - 
zedur LEERETABELLE durch. Das Feld 
NEXT im Record HASHELEMENT dient 
zur Behandlung von Kollisionen. Alle 
Schlüssel, die unter demselben Index 
stehen, werden in zufälliger Reihen¬ 
folge zu einer Liste mit dem Zeiger 
NEXT verkettet. Beim Einfügen und 
beim Abfragen muß deshalb eventuell 
diese Liste durchlaufen werden. Bild 6 
zeigt die Datenstruktur der Hashtabelle. 
Jeder Zeiger im Array HASHTAB kann 
also Kopf einer Liste von Einträgen 
sein. Bitte nehmen Sie die Werte in der 
Abbildung nicht zu genau, da aus nahe¬ 
liegenden Gründen nicht für jeden 
Namen die Hashfunktion berechnet 
wurde. 

Unter folgenden Bedingungen ist 
Hashing die mit Abstand beste Spei¬ 
cherungsform und jeder anderen Spei¬ 
chermethode in Geschwindigkeit und 
Programmieraufwand weit überlegen: 

1. Es existiert eine Grenze für die 
Anzahl der Werte, die gespeichert wer¬ 
den sollen. Die Größe der Hashtabelle 
ist etwa um zehn Prozent größer als 
diese Maximalanzahl festzulegen. 







2. Eine sortierte Ausgabe in der Rei- Aus dem bisher Gesagten ist klar, daß Index erhalten. Soll zum Beispiel die 
henfolge der Schlüssel ist nicht erfor- die Hash-Funktion alle Schlüssel (im Häufigkeit von Variablennamen in Pas- 

derlich. Es werden nämlich die Schlüs- Beispiel die Städtenamen) möglichst cal bestimmt werden, so darf eine 

sei im Idealfall völlig ungeordnet über gleichmäßig über den gesamten Index- Hashfunktion keinesfalls alle Namen mit 

die Hash-Tabelle verteilt, so daß keine bereich verteilen soll. Dabei muß man nur einem Buchstaben auf denselben 

Möglichkeit existiert, von einem Eintrag natürlich vermeiden, daß häufig auftre- Index abbilden, da sonst ständig eine 

zu seinem Nachfolger zu gelangen. tende ähnliche Schlüssel denselben lange Liste durchsucht werden muß. 



Bild 3. Kundenliste mit leerem Kopf und Ende 



Bild 4. Die Kundenliste aus Listing 1 



Bild 5. Eine doppelt verkettete Liste 































Normalerweise ist die Hash-Funktion 
jedoch unkritisch, so daß man jede 
Information mit nur einem Zugriff auf 
einen Record erhält. Bemerkenswert ist 
noch die Speicherplatzökonomie des 
Verfahrens. Zwar ist ständig ein Array 
der Größe HASHSIZE vorhanden, die¬ 
ses enthält jedoch nur Zeiger (zwei 
Byte Länge). Nur für tatsächlich vorhan¬ 
dene Schlüssel wird ein Record vom 
Typ HASHELEMENT dynamisch er¬ 
zeugt, der neben der eigentlichen Infor¬ 
mation nur noch Speicherplatz für einen 
Zeiger (NEXT) benötigt. Unter den 
oben genannten zwei Bedingungen ist 
Hashing also wärmstens zu empfehlen, 
da es die Geschwindigkeit von Array- 
Zugriffen mit der Effizienz dynamischer 
Variablen verbindet. 

Als abschließendes Beispiel steht an, 
eine Aufgabe mit Graphen in Pascal zu 
lösen. Ein Graph ist in der Mathematik 
ein abstraktes Gebilde aus Knoten und 
Kanten, die von Knoten zu Knoten füh¬ 
ren. Uns interessiert eine spezielle Art 
von Graphen, nämlich sloche, deren 
Kanten gerichtet und markiert sind. Das 
klingt schrecklich abstrakt, läßt sich 
jedoch leicht mit einer Abbildung (Bild 
7) erklären: Ein Knoten wird durch 
einen Kreis mit der Nummer des Kno¬ 
tens dargestellt, während ein Pfeil mit 
einem Zeichen zwischen zwei Knoten 
eine gerichtete, markierte Kante sym¬ 
bolisiert. Von Knoten 1 führt also eine 
Kante nach 2, die mit X markiert ist. 

Nachdem nun die grundlegenden 
Begriffe bekannt sind, zur eigentlichen 
Aufgabe. Durch einen Graphen kann 
man einfache »Sprachen« beschreiben: 
Bild 8 zeigt einen Graphen, der alle 
Wörter der Form 
AB 

ABAB 
ABABAB 
ABABABAB.. 

»erkennt«. Dies geschieht folgender¬ 
maßen: Am Anfang setzt man eine 
»Marke« auf den Eingangsknoten 1. 
Außerdem gibt man das Wort vor, von 
dem man wissen will, ob es vom Graph 
erkannt wird: 

ABAB 

Nun liest man Buchstabe für Buch¬ 
stabe und bewegt die Marke entspre¬ 
chend den Zeichen an den Kanten 
durch den Graphen. Mit dem ersten 
Buchstaben des Wortes »ABAB« 
erreicht man von Knoten 1 den Knoten 
2, da die Kante von 1 nach 2 mit dem 
Zeichen »A« markiert ist. Da der zweite 
Buchstabe ein »B« ist, wandert die 
Marke vom Knoten 2 entlang der Kante 
mit der Markierung »B« zum Knoten 3. 
Im dritten Schritt wird der dritte Buch¬ 
stabe (wieder ein »A«) untersucht, so 
daß sich die Marke von Knoten 3 zurück 
zu Knoten 2 bewegt. Mit dem letzten 
Buchstaben »B« kommt die Marke 


PROGRAM HASHING (INPUT, OUTPUT); 

<• SPEICHERUNG VON POSTLEITZAHLEN MIT HASHING UND UBERLAUFLISTEN *) 

CONST HASHSIZE - 97; (* PRIMZAHL *) 

LEN = 20; 

TYPE STRING = ARRAY M..LEN) OF CHAR; 

HASHELEMENT = RECORD 

NAME : STRING; 

* PLZ : INTEGER; 

NEXT : * HASHELEMENT 

END; 

VAR HASHTAB : ARRAY!0. . HASHSIZE] OF * HASHELEMENT; 

N : STRING; 

PLZ : INTEGER; 

PROCEDURE READSTRING (VAR S: STRING); 

<* STRING MIT LEN ZEICHEN VON DER TASTATUR LESEN *) 

VAR I: INTEGER; 

C: CHAR; 

BEGIN 

REPEAT READ(C) UNTIL C<>' ' ; <* VORLAUFENDE LEERZEICHEN IGNORIEREN *) 

I: -1; 

REPEAT (* LEN ZEICHEN ODER BIS ZUM ZEILENENDE *) 

Sl IJ : - C; X: ■ 1 + 1; 

RE AD( C) 

UNTIL ( I> LEN) OR EOLN; 

HHILE I< LEN DO 
BEGIN 

S! IJ: - ’ * ; I: - 1 + 1 ; 

END; 

READLN 

END; (* READSTRING *> 

FUNCTION HASHINDEX (NAME: STRING): INTEGER; 

(* LIEFERT DEN INDEX IN DER HASHTABELLE FÜR DIESEN NAMEN *) 

VAR I : 1. . LEN; 

INDEX: INTEGER; 

BEGIN 

INDEX: - 0; 

FOR I:« 1 TO LEN DO INDEX: - INDEX ♦ 0RD( NAMEt 11 ) ; 

HASHINDEX:- INDEX MOD HASHSIZE; 

END; ( * HASHINDEX *) 

PROCEDURE SPEICHERE (N: STRING; POSTLEITZAHL: INTEGER); 

(* EINTRAG NAME MIT POSTLEITZAHL. ZUR SICHERHEIT TEST, OB DOPPELT *) 


VAR INDEX : INTEGER; (* INDEX IN HASHTAB *) 

P, NEU : * HASHELEMENT; (* ZEIGER IN ÜLERLAUFLISTE *) 

DOPPELT: BOOLEAN; 

BEGIN 

INDEX: - HASHINDEX( N) ; (* INDEX DES NAHENS BERECHNEN *) 

P: - HASHTAB! INDEX]; (* ZEIGER AUS DER HASHTABELLE *) 

DOPPELT:- FALSE; (* PRÜFE AUF DOPPELTEN EINTRAG, *) 

HHILE PONIL DO (* FALLS AN DIESER POSITION *) 

BEGIN (* BEREITS EINTRÄGE EXISTIEREN. *> 

DOPPELT: - DOPPELT OR ( P*. NAME-N); 

P: - P\ NEXT 
END; 


IF DOPPELT THEN 

HRITELN(N, • IST BEREITS GESPEICHERT!*) 

ELSE 
BEGI N 

NEW( NEU); (* NEUEN RECORD ERZEUGEN *) 

HITH NEU" DO 
BEGIN 

NAME: -N; PLZ:» POSTLEI TZAHL;(* WERTE EINTRÄGEN *) 

NEXT:- HASHTAB!INDEX! (* VOR DEN ALTEN HERTEN EINFÜGEN *) 

END; 

HASHTAB!INDEX]:= NEU <* NEU STEHT AN 1. POSITION *) 

END; ( * IF *) 

END; ( * SPEICHERE *) 

FUNCTION POSTLEITZAHL! NAME: STRING): INTEGER, 

(* LIEFERT DIE POSTLEITZAHL ZU DIESEM NAMEN ODER DIE ZAHL 0 *) 

VAR P : * HASHELEMENT; 

INDEX: INTEGER; 

BEGIN 

INDEX: - HASHINDEX( NAME) ; (* BESTIMME DEN INDEX IN HASHTAB *) 

POSTLEITZAHL:- 0; (* VORLÄUFIG NOCH NICHT GEFUNDEN *) 

P: - HASHTAB! INDEX); (* DURCHSUCHE DIE ÜBERLAUFLISTE *) 

HHILE PONIL DO 

IF P\ NAME-NAME THEN 
BEGIN 

POSTLEITZAHL:» P". PLZ; (* FUNKTIONSERGEBNIS PESTLEGEN *) 

P:- NIL (* ENDE DER SCHLEIFE ERZWINGEN *) 

END 
ELSE 

P: = P*. NEXT; (* SONST HEITERSUCHEN *) 

END; (* POSTLEITZAHL *) 

Listing 2. Datenspeicherung 

PROCEDURE LEERETABELLE; m || Hashing 


(* S MIT LEERZEICHEN AUF DIE VOLLE *) 

( * LÄNGE ERHEITERN *) 












('» LÖSCHE DIE GESAMTE HASHTABELLE *) 

VAR I: 0. . HASHSI Z E; 

BEGIN 

FOR 1: * 0 TO HASHSIZE DO HASHTABI II:» NIL 
END; <* LEERETABELLE *) 

BEGIN ( * HAUPTPROGRAMM *) 

LEERETABELLE; (* NOCH IST NICHTS GESPEICHERT *> 

WRITELN! ' SPEICHERUNG VON POSTLEITZAHLEN: (BEENDEN MIT NAME * *>•>; 

HRITE( ' NAME: ■ ) ; READSTRI NG( N) ; 

WHI LE Nt 1 1 <> ' *• DO 
BEG1 N 

HRI TE( ' PLZ READ(PLZ); 

IF PLZ - 0 THEN 

WRITELN! POSTLEITZAHL! N) ) 

ELSE 
BEGIN 

HRI TELN; 

SPEICHERE! N, PLZ) ; 

END; 

HRITE! ' NAME: 1 ) ; READSTRI NG( N) 

END; (* HHILE * > 

END. 

Listing 2. Datenspeicherung mit Hashing (Schluß) 


<* SUCHE DIE ZUGEHÖRIGE PLZ: *) 


(* SPEICHERE NAMEN MIT DIESER PLZ *) 



schließlich auf Knoten 3 zu liegen. Da 
nun das Wort zu Ende ist, kann man aus 
der Position der Marke entscheiden, ob 
der Graph das Wort »erkannt« hat. Die 
Marke befindet sich im Knoten 3, den 
ein dicker Rand hervorhebt. Diese Kno¬ 
ten sind »akzeptierende« Knoten. 
Befindet sich die Marke am Schluß auf 
einem akzeptierenden Knoten, so ist 
das gesamte Wort erkannt und gehört 
somit zum Sprachschatz des Graphen. 
Sicher verstehen Sie jetzt auch, warum 
der Graph in Bild 8 alle Worte erkennt, 
die aus einer beliebig langen Folge von 
»AB« bestehen. Mit jedem »A« wird die 
Marke auf den Knoten 2 gesetzt, von 
wo aus mit »B« der akzeptierende Kno¬ 
ten 3 erreicht wird. Hätten wir jedoch 
das Wort 
ABA 

der obigen Testprozedur unterzogen, 
so wäre die Marke im dritten Schritt 
ebenfalls im Knoten 2 gelandet. Da das 
Wort an dieser Stelle bereits zu Ende 
ist, die Marke aber nicht auf einem 
akzeptierenden Knoten liegt, gehört 
»ABA« nicht zur Sprache des Graphen. 
Auch das Wort 
ABAA 

bleibt unerkannt, da mit ABA die Marke 
auf Knoten 2 liegt. Für den folgenden 
Buchstaben »A« existiert jedoch keine 
Markierung an einer Kante von 2 aus, 
so daß das gesamte Wort nicht erkannt 
wird. 

Bild 9 zeigt einen Graphen, der alle 
Worte der Form 

AAB 

AABAAB 
AABAABAAB 
AABAABAABAAB... 

identifiziert. Das können Sie bei der 
Anwendung der obigen Regeln für 
einige Beispielworte leicht herausfin¬ 
den. 

Listing 3 stellt ein Programm dar, das 
das mühsame Verfolgen des Weges der 
Marke durch den Graphen automatisch 
durchführt. Genauer gesagt soll das 
Programm folgendes leisten: 

1. Es wird eine Beschreibung des 
Graphen eingelesen. 

2. Es wird geprüft, ob überhaupt ein 
akzeptierender Knoten erreicht werden 
kann (siehe Bild 10 für ein Gegenbei¬ 
spiel). 

3. Für beliebig vorgegebene Wörter 
wird geprüft, ob diese erkannt werden. 

Zunächst muß eine Datenstruktur für 
die interne Repräsentation des Gra¬ 
phen im Speicher des Computers 
gefunden werden. Da es beliebig viele 
Knoten und Kanten geben kann, wird 
man diese mit dynamischen Variablen 
darstellen. Graphen sind nämlich gera¬ 
dezu das klassische Beispiel für die 
Verwendung von Zeigern. Für jeden 
Knoten speichert man seine Nummer 
und eine Liste der Kanten, die von die- 
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sem Knoten wegführen. Jede Kante in 
dieser Liste enthält ihrerseits die Mar¬ 
kierung und einen Zeiger auf den Kno¬ 
ten, zu dem sie führt. 

TYPE TKNOTENREF =t TKNOTEN; 

TKANTENREF =1 TKANTE; 

TKNOTEN = RECORD 
NUMMER: INTEGER; 
KANTENLISTE: TKANTENREF 
END; 

TKANTE = RECORD 

MARKIERUNG : CHAR; 

NEXT: TKANTENREF; 

NACH: TKNOTENREF; 

END; 

Es gibt also zwei Zeigertypen. Zeiger 
vom Typ TKNOTENREF zeigen immer 
auf Knoten (Records vom Typ TKNO¬ 
TEN), während Zeiger vom Typ TKAN¬ 
TENREF immer auf Kanten (Records 
vom Typ TKANTE) weisen. Die Bilder 11 
und 12 verdeutlichen jeweils die interne 
Darstellung eines Graphen. Die großen 
Kästen verbildlichen Records vom Typ 
TKNOTEN. Sie enthalten also die Num¬ 
mer des Knotens. Diese Nummer ist 
negativ, falls es sich bei dem Knoten um 
einen akzeptierenden Knoten handelt. 
Außerdem ist jeder Knoten Kopf einer 
Liste von Records des Typs TKANTE 
(kleine Kästen). Für jede Kante wird das 
Zeichen, mit dem die Kante markiert ist, 
und ein Zeiger auf den Knoten am Ende 
der Kante, gespeichert. Da alle Kanten, 
die an einem Knoten beginnen,'zu einer 
Liste verkettet sind, wird noch das Feld 
NEXT benötigt, in dem ein Zeiger auf 
die nächste Kante in der Liste enthalten 
ist. Von »außen« erreicht man den 
gesamten Graphen nur durch die Zei¬ 
gervariable ANFANG. 

Als erstes nun zur Funktion 
ERKANNT. Sie verwendet diese Daten¬ 
struktur, um zu prüfen, ob das Wort in 
dem Array W 

VAR W: ARRAY[1..100] 0F CHAR; 

akzeptiert wird. Die Strategie ist sehr 
einfach und entspricht dem obigen 
Wandern einer Marke durch den Gra¬ 
phen. Der Parameter Q gibt die momen¬ 
tane Position der Marke (auf einem Kno¬ 
ten) an. I indiziert den momentan bear¬ 
beiteten Buchstaben im Wort W. Das 
Ende des Wortes markiert ein Dollar- 
Zeichen »$«. Wurde dieses Ende gele¬ 
sen, so ist das Wort genau dann akzep¬ 
tiert, wenn der momentane Knoten (Qt) 
ein akzeptierender Knoten ist (Nummer 
ist negativ). Ansonsten wird die Kanten¬ 
liste nach einer Kante mit der passen¬ 
den Markierung durchsucht. Stimmt die 
Markierung mit dem laufenden Buch¬ 
staben W[l] überein, so setzt sich die 
Prüfung mit dem nächsten Buchstaben 
und dem Endknoten der Kante fort. Die 
Funktion ERKANNT ist also rekursiv. 
Bemerkenswert ist noch die Tatsache, 
daß von einem Knoten eventuell zwei 
oder mehrere gleich markierte Kanten 


PROGRAM GRAPH ( INPUT, OUTPUT) ; 

<* DIESES PROGRAMM DEMONSTRIERT DIE VERWENDUNG VON DYNAMISCHEN VARIABLEN 
(* ZUR DARSTELLUNG EINES GERICHTETEN, MARKIERTEN GRAPHEN IM SPEICHER DES 
(* COMPUTERS. DIE PROZEDUR GRAPHEINLESEN BAUT EIN NETZWERK AUS RECORDS 
(* DER TYPEN TKNOTEN UND TKANTE AUF, DESSEN ERSTER KNOTEN ÜBER DEN 
(* ZEIGER ANFANG ERREICHT WERDEN KANN. DIE FUNKTIONEN ISTLEER UND 
(* ERKANNT BENUTZEN DIESE DATENSTRUKTUR, UM DIE DURCH DEN GRAPHEN BE- 
(* SCHRIEBENE SPRACHE NÄHER ZU UNTERSUCHEN ( S. TEXT) 


CONST ENDE 


TKNOTENREF 
TKANTENREF 
TKNOTEN » 


; (* MARKIERUNG AM ENDE DER EINGABE 

CHAR; (* DIE MARKIERUNGEN DER KANTEN BESTEHEN 

<* AUS EINZELNEN ZEICHEN 

- * TKNOTEN; (* ZEIGER AUF EINEN KNOTEN 

- “TKANTE; <* ZEIGER AUF EIME KANTE 
RECORD 

NUMMER: INTEGER; (* NEGATIV, FALLS AKZEPTIEREND 
ISTMARKIERT: BOOLEAN; (* FÜR FUNKTION ISTLEER 
KANTENLISTE: TKANTENREF; (* LISTE ALLER KANTEN, DIE 
( * VON DIESEM KNOTEN WEGFÜHREN 
NEXT: TKNOTENREF; (* VERKETTET ALLE KNOTEN IM GRAPH 
( * ZU EINER LISTE 


NEXT: TKNOTENREF; 


END; 

TKANTE - RECORD 


MARKIERUNG: TEINGABE; 
NACH: TKNOTENREF; ( * 
NEXT: TKANTENREF; ( * 


(* ZIELKNOTEN DIESER KANTE 
(* ZEIGER AUF DIE NÄCHSTE KANTE, 
(* DIE AM SELBEN KNOTEN BEGINNT 


END; 

VAR KNOTENLISTE: TKNOTENREF; <* ANFANG DER LISTE ALLER KNOTEN *) 

ANFANG : TKNOTENREF; (* ERSTER KNOTEN IM GRAPHEN *) 

W: ARRAY II.. 100) OF CHAR; (* WORT FÜR PRÜFUNG, OB ERKANNT *) 

I: INTEGER; 

PROCEDURE GRAPHEINLESEN; 

(* KOMPLETTEN GRAPHEN IM SPEICHER AUFBAUEN. ANFANG (GLOBAL) ZEIGT AUF *) 
(* DEN ERSTEN EINGEGEBENEN KNOTEN. FÜR JEDEN KNOTEN WIRD ISTMARKIERT: * *) 
(* FALSE GESETZT. AKZEPTIERENDE KNOTEN WERDEN MIT NEGATIVEN NUMMERN *) 
( * GESPEICHERT. *> 

<* DIE EINGABE VON DER TASTATUR HAT FOLGENDES FORMAT: PRO ZEILE EINE *) 

<* KANTE. NACHEINANDER NUMMER DES AUSGANGSKNOTENS, EIN ZEICHEN UNGLEICH*) 
(* LEERZEICHEN ALS MARKIERUNG UND DIE NUMMER DES ZIELKNOTENS. *) 

(* DIE LETZTE ZEILE WIRD MIT EINER 0 BEENDET *> 


VAR 1STERSTER 
VON 

NACH : INTEGER; <* NUMMER DES ZIELKNOTENS *) 

MIT : TEINGABE; (* MARKIERUNG DER KANTE *) 

V,N : TKNOTENREF; (* ZEIGER AUF AUSGANGS- UND ZIELKNOTEN *) 

KANTE : TKANTENREF; (* ZEIGER AUF NEU EINZUFÜGENDE KANTE *> 

FUNCTION SUCHEKNOTEN ( N: INTEGER): TKNOTENREF; 

(* SUCHE IN DER LISTE ALLER KNOTEN NACH EINEM KNOTEN, DER DIE NUMMER*) 
(* N BESITZT. DAS FUNKTIONSERGEBNIS IST EIN ZEIGER AUF EINEN RECORD *) 
(* VOM TYP TKNOTEN ODER DER WERT NIL, FALLS KEIN SOLCHER KNOTEN GE- *) 
(* FUNDEN WURDE. *> 

VAR Q: TKNOTENREF; 

BEGI N 

Q:- KNOTENLISTE; C* ZEIGER AUF DEN ANFANG DER LISTE *) 

SUCHEKNOTEN: = NIL; (* FUNKTIONSERG. VORLÄUFIG FESTLEGEN *) 

WHILE QONIL DO (* SOLANGE NOCH KNOTEN IN DER LISTE SIND *) 

IF Q\ NUMMER - N THEN (* KNOTEN GEFUNDEN, ... *) 

BEGI N 

SUCHEKNOTEN:* 0; (* ZEIGER ALS FUNKTIONSERGEBNIS SETZEN *) 

Q:- NIL (* SCHLEIFE BEENDEN *) 

END 

ELSE 

0:= 0*.NEXT; (* SONST WEITER MIT NÄCHSTEM KNOTEN IN *) 


BOOLEAN; 

INTEGER; 

INTEGER; 

TEINGABE; 

TKNOTENREF; 


TRUE BEIM EINLESEN DER ERSTEN KANTE 
NUMMER DES AUSGANGSKNOTENS 


UND ZIELKNOTEN 


C* ZEIGER AUF DEN ANFANG DER LISTE 
(* FUNKTIONSERG. VORLÄUFIG FESTLEGEN 
(* SOLANGE NOCH KNOTEN IN DER LISTE SIND 
(* KNOTEN GEFUNDEN, . . . 

(* ZEIGER ALS FUNKTIONSERGEBNIS SETZEN 
(* SCHLEIFE BEENDEN 

(* SONST WEITER MIT NÄCHSTEM KNOTEN IN 
(* DER LISTE 


END; (* SUCHEKNOTEN *) 

FUNCTION NEUERKNOTEN ( N: INTEGER): TKNOTENREF; 

(* LEGE NEUEN (UNMARKIERTEN) KNOTEN MIT DER NUMMER N AN. DER RECORD *) 
(* WIRD IN DIE LISTE ALLER RECORDS DES GRAPHEN EINGEFÜGT, DAMIT ER *) 
(* SPÄTER MIT DER FUNKTION SUCHEKNOTEN GEFUNDEN WIRD. *) 

VAR 0: TKNOTENREF; 

BEGI N 


NEW( Q) ; 

WITH Q“ DO 
BEGI N 

NUMMER: = N; 

ISTMARKIERT: - 
KANTENLISTE: = 


SPEICHERPLATZ FÜR NEUEN RECORD HOLEN 
RECORD KORREKT VORBELEGEN: 


( * NUMMER DES KNOTENS 


FALSE; (* NOCH UNMARKIERT 


NEXT:* KNOTENLISTE; 
END; 

KNOTENLISTE: *0; 
NEUERKNOTEN: *Q; 

END; (* NEUERKNOTEN *) 
BEGIN (* GRAPHEINLESEN *) 
KNOTENLISTE: - NIL; 
ISTERSTER: * TRUE; 

READ( VON) ; 

WHILE V0N<>0 DO 
BEGI N 
REPEAT 

READ( MIT) 

UNTIL MI TO* ' ; 

READLN ( NACH) ; 

V: * SUCHEKNOTENt VON) ; 
IF V-NIL THEN 

V: *NEUERKNOTEN( VON) ; 


(* BIS JETZT BEGINNT NOCH KEINE KANTE AN *) 
(* DIESEM KNOTEN. *> 
(* Q WIRD AM ANFANG DER KNOTENLISTE EIN- *) 
( * GEFÜGT. *> 
(* Q IST JETZT ERSTER KNOTEN IN KNOTENL. *) 
(* FUNKTIONSERGEBNIS IST ZEIGER AUF 0“ *) 


(* NOCH IST DIE KNOTENLISTE LEER *) 

(* DIE FOLGENDE KANTE IST DIE ERSTE *) 

(* ENDE DER EINGABE WIRD DURCH KNOTEN MIT*) 
(* DER NUMMER 0 GEKENNZEICHNET *) 

(* MARKIERUNG UNGLEICH LEERZEICHEN LESEN *) 

(* JETZT NOCH DIE NUMMER DES ENDKNOTENS *) 
(* HOLE ZEIGER AUF DEN AUSGANGSKNOTEN *) 
(* AUSGANGSKNOTEN IST NEU, DESHALB *) 

(* NEUEN KNOTEN ANLEGEN *) 
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N:* SUCHEKNOTEN( NACH) ; 
1F N= NI L THEN 


HOLE ZEIGER AUF DEN ZIELKNOTEN 
FALLS NICHT BEREITS GESPEICHERT, 


N: = NEUERKNOTEN( NACH); ( * NEUEN KNOTEN ANLEGEN. 

NEW(KANTE); (* BILDE JETZT EINE NEUE KANTE 

KANTE“. MARKIERUNG: = MIT;** EIN ZEICHEN ALS MARKIERUNG EINTRÄGEN 
KANTE“. NACH: = N; (* KANTE ENTHÄLT ZEIGER AUF ZIELKNOTEN 

(* JETZT KANTE IN DER LISTE DER KANTEN VON KNOTEN V“ EINFÜGEN: 


BEIM ERSTEN KNOTEN ANFANG SETZEN 


KANTE . NEXT:= V KANTENLISTE; 

V“. KANTENLISTE: * KANTE; 

IF ISTERSTER THEN (* BEIM ERSTEN KNOTEN ANFANG SETZEN *) 

BEGIN 

ISTERSTER: = FALSE; 

ANFANG: = V 
END; 

READ< VON) 

END; ( * WHILE *) 

END; ( * GRAPHEINLESEN *) 

FUNCTION ISTLEER (Q: TKNOTENREF): BOOLEAN; 

<* DIESE FUNKTION PRÜFT FÜR DEN KNOTEN 0“, OB KEIN AKZEPTIERENDER *) 

(* KNOTEN ERREICHT WERDEN KANN. IN DIESEM FALL IST ISTLEER FÜR ALLE *) 

(* VON Q ERREICHBAREN (NICHT MARKIERTEN) KNOTEN EBENFALLS TRUE *) 

(* AM ANFANG MUSS DAS FELD ISTMARKIERT IM RECORD TKNOTEN FÜR ALLE *) 

<* KNOTEN AUF FALSE GESETZT WERDEN. *) 

VAR LEER : BOOLEAN; 

NACHF: TKANTENREF; 

BEGIN 

Q“. ISTMARKIERT: = TRUE; (* MARKIERE KNOTEN, DAMIT DIESER NICHT *) 

(* DOPPELT GEPRÜFT WIRD *) 

LEER: * O“. NUMMER>=0; (* FALLS 0 SELBST EIN AKZEPTIERENDER *) 

** KNOTEN IST, KANN NATÜRLICH EIN AKZ. *) 

<* KNOTEN ERREICHT WERDEN. *) 

NACHF:* Q“. KANTENLISTE; (* ZEIGER AUF DIE EPSTE KANTE, DIE BEI *) 

(* KNOTEN Q BEGINNT *) 

(* SOLANGE KEIN AKZEPTIERENDER KNOTEN ERREICHT WURDE, VERFOLGE ALLE*) 
<* KANTEN, DIE VON Q WEGFÜHREN: *) 

WHILE LEER AND (NACHFONIL) DO 


BEGIN 

IF NOT NACHF 


LEER: = I 5 
NACHF: = NAC 
END; 

ISTLEER: - LEER; 


CHF NACH .ISTMARKIERT THEN 

(* FALLS ZIELKNOTEN DER KANTE UNMARKIERT *) 
ISTLEER( NACHF“. NACH); (* PRÜFE DISEN ZIELKNOTEN *) 


NACHF . NEXT; 


WEITER MIT DER NÄCHSTEN KANTE 


FALLS LEER IMMER NOCH TRUE IST, WIRD 
ALSO KEIN AKZEPPT. KNOTEN ERREICHT 


END; ( * ISTLEER *) 

FUNCTION ERKANNT ( 0: TKNOTENREF; I: INTEGER): BOOLEAN; 

(* PRÜFE, OB VON 0 AUS MIT DER BUCHSTABENFOLGE AB Will EIN AKZEP- 
(* TIERENDER KNOTEN ERREICHT WIRD. 

VAR OK : BOOLEAN; 


VAR OK : BOOLEAN; 

NACHF: TKANTENREF; 

BEGIN 

IF WI IJ * ENDE THEN 

ERKANNT: = Q“. NUMMER< 0 


(* ENDE DES WORTES W ERREICHT: *) 
(* ERKANNT, FALLS Q“ EIN AKZEPTIERENDER *) 
( * ZUSTAND IST. *) 


ELSE 

BEGIN 

OK: = FALSE; 
NACHF: = 0“. 


(* NOCH IST KEIN AKZ. ZUSTAND GEFUNDEN *) 
KANTENLISTE;(* ZEIGER AUF DEN ANFANG DER LISTE DER *) 


(* KANTEN, DIE BEI Q BEGINNEN 
(* PROBIERE ALLE KANTEN, DIE BEI 0 BEGINNEN UND MIT W(I) 

(* MARKIERT SIND, BIS ERFOLG (OK=TRUE) 

WHILE NOT OK AND (NACHFONIL) DO 
BEGIN 

IF NACHF“. MARKIERUNGEN!IJ THEN 
OK: = ERKANNT* NACHF“. NACH, 1+1); 

(* WEITER MIT DEM NÄCHSTE BUCHSTABEN 
NACHF:* NACHF“. NEXT; ( * NÄCHSTE KANTE IN DER LISTE 


NACHF:= NA 
END; 

ERKANNT: = OK 
END; ( * IF *) 

END; (* ERKANNT *) 
BEGIN (* HAUPTPROGRAMM *) 
GRAPHEINLESEN; 


(* FUNKTIONSERGEBNIS FESTLEGEN 


WRITE( 'DIE AKZEPTIERTE SPRACHE IST 
IF NOT ISTLEER* ANFANG) THEN (* 


(* HOLE BESCHREIBUNG DES GRAPHEN 


IF NOT ISTLEER*ANFANG) THEN (* PRÜFE, OB VOM ANFANGSKNOTEN EIN - 

(* AKZ. KNOTEN ERREICHBAR IST. * 

WRITE ('NICHT *); 

WRITELN (’LEER.’); 

REPEAT 

WRITELN ('GEBEN SIE JETZT DAS ZU TESTENDE WORT EIN ($ AM WORTENDE)*); 
WRITELN ('( PROGRAMMENDE MIT DEM WORT $) • ) ; 

I: * 0; 


REPEAT 

I:= 1+1; READ (Will); 

UNTI L WI I) = ENDE; 

WRITELN; WRITE ('DAS WORT IST 
IF NOT ERKANNT*ANFANG,1) THEN 


STRING W EINLESEN 


(* PRÜFE, OB MIT DEM WORT W VOM 


ANFANGSKNOTEN EIN AKZ. KNOTEN 
ERREICHBAR IST. 


WRITE(* NICHT ' ); 

WRITELN(' IN DER SPRACHE ENTHALTEN. 
UNTIL WI 1 ) =' $' ; 

END. 


Listing 3. Das Programm zum Untersuchen von Graphen. Das Zeichen »~« 
entspricht dem Hochpfeil (»I«). 


ausgehen können. In diesem Fall prüft 
ERKANNT alle Wege, bis eine Kante zu 
einem Erfolg führt. 

Ähnlich sieht die Lösung der Teilauf¬ 
gabe 2 aus. Um festzustellen, ob über¬ 
haupt ein Wort erkannt wird, genügt es, 
eine beliebig markierte Kantenfolge 
vom Anfangsknoten zu einem akzeptie¬ 
renden Knoten zu finden. Daher wird 
beim Aufruf ISTLEER für den Knoten Q, 
der als Parameter übergeben wird, 
zunächst geprüft, ob Q selbst ein 
akzeptierender Knoten ist. Wenn ja, so 
existiert ein akzeptiertes Wort. Anson¬ 
sten werden alle Kanten verfolgt, und 
geprüft, ob man über eine dieser Kan¬ 
ten einen Endzustand erreichen kann. 
Wiederum ruft sich als ISTLEER rekur¬ 
siv auf. Jedoch würde ohne weitere 
Vorkehrung dieser Algorithmus beim 
Graphen aus Bild 10 in eine Endlos¬ 
schleife geraten. Vom Ausgangsknoten 

1 erreicht man den Knoten 2. Da man 
alle Kanten von 2 verfolgt, gelangt man 
über die Kante »B« zurück zu Knoten 1. 
Von dort springt man wieder zu Knoten 

2 und so weiter. Die Lösung besteht 
darin, daß man alle bereits besuchten 
Knoten markiert. Dazu wird der Record 
um das Feld 

ISTMARKERT: BOOLEAN 
erweitert. Bei der Eingabe des Graphen 
sind alle Knoten unmarkiert. Erreicht 
man jedoch in der Funktion ISTLEER 
den Knoten Q, so wird dieser mit 
Qt :ISTMARKERT:= TRUE 
gekennzeichnet. Bevor man nun einen 
rekursiven Aufruf der Funktion IST¬ 
LEER ausführt, wird zunächst wieder 
geprüft, ob der Knoten nicht bereits 
untersucht und markiert wurde. 

Das größte Problem ist sicherlich die 
Eingabe eines Graphen. In diesem Bei¬ 
spiel wird eine kantenorientierte Ein¬ 
gabe vorgenommen: Der Graph in Bild 8 
wird folgendermaßen beschrieben: 

1 A 2 

2 B -3 
-3 A 2 
0 

Jede Zeile benennt also die Nummer 
des Anfangsknoten, die Markierung der 
Kante und die Nummer des Endkno¬ 
tens der Kante. Das Ende der Eingabe 
markiert die Zahl Null. Die Eingabe 
nimmt die Prozedur EINLESEN vor. 
Zunächst wird die Nummer des Aus¬ 
gangsknotens (VON) gelesen, an¬ 
schließend alle Leerzeichen ignoriert, 
bis die Markierung (MIT) indentifiziert 
wurde. Daran schließt sich die Nummer 
des Endknotens an. Akzeptierende 
Knoten sind wieder durch negative 
Zahlen kenntlich. 

Für jeden Knoten wird zunächst fest¬ 
gestellt, ob bereits ein Record vom Typ 
TKNOTEN mit dieser Nummer existiert. 
Die Funktion SUCHEKNOTEN liefert zu 
einer Nummer N einen Zeiger auf einen 
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Bild 8. Dieser Graph kann eine einfache 
Zeichenfolge »erkennen« 


A 

Bild 9. Ein Graph zum Erkennen einer 
weiteren Zeichenfolge 

Bild 10. Dieser 
Graph akzeptiert überhaupt kein Wort 



B 



1 2 I .1 


A N,L 


Bild 11. Interne Zeigerdarstellung des Graphen aus Bild 8 


( ANFANG 





Bild 12. Interne Darstellung des Graphen aus Bild 10 im Speicher 



1 A 2 

2 B -3 
-3 A 2 

0 

DIE AKZEPTIERTE SPRACHE IST NICHT LEER. 

ABAB$ 

DAS WORT IST IN DER SPRACHE ENTHALTEN. 

A B A $ 

DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN. 

AA$ 

DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN. 

$ 


1 A 2 

2 A 3 

3 B -4 
-4 A 2 
0 

DIE AKZEPTIERTE SPRACHE SIT NICHT LEER 

AAB$ 

DAS WORT IST IN DER SPRACHE ENTHALTEN. 

AABAAB$ 

DAS WORT IST IN DER SPRACHE ENTHALTEN. 

A$ 

DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN. 

$ 


1 A 2 

2 B 1 

2 A 3 

3 B 2 

/ J J Bild 13. Einige Probeläufe für den Graphen aus Bild 8 

-4 C 2 

-4 A 3 

0 

DIE AKZEPTIERTE SPRACHE IST LEER. 

$ 


Knoten-Record, oder den Wert NIL, 
falls noch kein solcher Record vorkam. 
Eventuell muß also mit der Funktion 
NEUERKNOTEN ein Knoten mit der 
Nummer N angelegt werden. Die Funk¬ 
tion liefert einen Zeiger auf den neuen 
Record, der außerdem als unmarkiert 
gekennzeichnet wird. 

Anschließend kann in EINLESEN ein 
neuer Record vom Typ TKANTE mit der 
angegebenen Markierung angelegt 
werden. Dabei wird im Feld NACH ein 
Zeiger auf den Endknoten N (mit der 
Nummer NACH) eingetragen und 
schließlich dieser Kanten-Record in die 
Liste der Kanten des Knotens V (mit der 
Nummer VON) eingefügt. 

Da der Ausgangsknoten immer als 
erster in der Eingabe genannt wird, 
benutzt man die boolesche Variable 
ISTERSTER. Falls ISTERSTER=TRUE 
ist, muß also der Zeiger ANFANGSK¬ 
NOTEN noch auf den Record Vt 
gesetzt werden. 

Einige Probeläufe des Programmes 
mit verschiedenen Graphen zeigt Bild 
13. 

Natürlich ist nicht zu erwarten, daß 
ein absoluter Anfänger den gesamten 
Artikel sofort in die Praxis umsetzen 
kann. Die letzten Beispiele zeigen 
jedoch deutlich, daß Pascal für kompli¬ 
ziertere Aufgaben einen deutlichen Lei¬ 
stungsvorsprung gegenüber anderen 
Sprachen besitzt, die entweder nur ein¬ 
fache Datenstrukturen aufweisen 
(Basic, Fortran, Cobol), oder aber keine 
so wirkungsvolle Abstraktion von der 
internen Darstellung der Daten erlau¬ 
ben, so daß die Typüberprüfung in Aus¬ 
drücken und bei der Parameterüber¬ 
gabe auf den Programmierer abgewälzt 
wird (C und Förth). 

(Florian Matthes/ev) 


Info: Empfehlenswerte Pascal-Literatur: 

F. Matthes, »Pascal mit dem C 64«, Markt&Technik Verlag (mit 
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bücher 

K. Mehlhom, »Effiziente Algorithmen«, Teubner Studienbücher 
K. Jensen, N. Wirth, »Pascal, User Manual and Report, Lecture 
Notes in Computer Science, Völ. 18«, Springer Verlag (Berlin) 

H. Schauer »Pascal für Anfänger«, R. Oldenbourg Verlag 

E. Kaucher, R. Klatte, Ch. Ulllrich, »Programmiersprachen im 
Griff, Band 2: Pascal 4, Bl-Hochschultaschenbücher 
R. Busch, »Der sichere Einstieg in Pascal«. Franzis' Verlag 
R.-D. Klein, »Was ist Pascal?«, Franzis’ Verlag 

J. N.P. Hume, R.C. Holt, »UCSD-Pascal«, Markt&Technik Vertag 
D.T. Bamard, Crawford, »Pascal - Probleme und Anwendun¬ 
gen«, Markt&Technik Verlag 

I. Lüke, P. Lüke, »Turbo Pascal«, Markt&Technik Verlag 
»Turbo Pascal Handbuch«, Heimsoeth Software (mit Turbo Pas¬ 
cal Compiler auf Diskette) 

»Turbo Tutor«, Heimsoeth Software (mit Demo-Diskette) 

K. H. Rollke, »Das Turbo Pascal Buch«, Sybex-Verlag 

A. Luehrmann, H. Pechham, »Appel II Pascal«, Tewi-Verlag 
Prof. Nestle. E. Ostertag, »Kleiner Sprachführer Basic-üogo- 
Pascal«, Markt&Technik Verlag 
K. Mikitta, »Pascal für Schulen«. Aulis-Verlag 

I. R. Wilson, A.M. Addyman, »Pascal«, Carl-Hauser-Verlag 
K.H. Rollke, »Grundkurs in Pascal, Band 1 und 2«, Sybex-Verlag 
R. Zaks, »Einführung in Pascal und UCSD-Pascal«, Sybex- 

Verlag 

J. Tiberghien, »Das Pascal Handbuch«, Sybex-Verlag 
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# Cursor-Kur 
mit Turbo-Pascal 


Der unstet flackernde Cursor des C128 ist vielen 
CP/M-Anwendern ein Dorn im Auge. Hier naht 
Abhilfe in Form eines Turbo-Pascal-Programms. 

C ommodore hat beim neuen Basic 7.0 an den gestreß¬ 
ten Programmierer gedacht und gleich mehrere mög¬ 
liche Cursor-Arten vorprogrammiert, die auf einfache 
Weise, nämlich durch Drücken der Escape-Taste und eines 
Buchstabens, für den Anwender erreichbar sind. So ist 
sowohl ein blinkender Strich- oder Unterstreichungs-Cursor 
wie auch ein stehender Block-Cursor machbar (siehe 
Tabelle). 

Anders allerdings sieht es im CP/M-Modus des Computers 
aus. Hier sind dem Programmierer die Hände gebunden. Er 
muß sich wohl oder übel den närrisch flackernden Cursor 
gefallen lassen. 

Unter CP/M sind Eingriffe in das Betriebssystem des Com¬ 
puters weitaus schwieriger zu realisieren als unter Basic. Für 
die Mehrheit der Commodore-Besitzer ist die Maschinen¬ 
sprache des Z80-Prozessors wohl mehr als ein Buch mit sie¬ 
ben Siegeln, so daß ein direkter Zugriff per Assembler aus¬ 
scheidet. Außerdem erfordern Eingriffe in das Betriebssy¬ 
stem unter CP/M genaueste Kenntnisse des CP/M-Systems. 
Auch diese Kenntnisse dürften bei vielen Anwendern fehlen. 

Aber dies ist trotzdem noch kein Grund zum Verzweifeln, 
denn wozu gibt es höhere Programmiersprachen? Aus oben- 


N 

genannter Not entstand das folgende Programm in Turbo- 
Pascal 3.0. Es bietet dem Benutzer die Möglichkeit, sich sei¬ 
nen Cursor nach eigenen Wünschen menügesteuert anzu¬ 
passen. Das Programm kann nach dem Eingeben in ein 
COM-File compiliert werden, so daß man es ohne Probleme 
auf all seinen Disketten installieren kann. Es besteht sogar 
die Möglichkeit, das Programm von PROFILE.SUB aus aufzu¬ 
rufen, damit spart man sich das Laden nach dem BOOTen. 
Nach der Meldung »Cursor-Mode-Swap für C128 und CP/M 
3.0« kann man sich durch zwei oder drei Tastendrücke seinen 
persönlichen Cursor installieren. 

Noch etwas zum Abtippen: Das Listing wurde im DIN- 
Modus der Tastatur eingegeben. Daher konnte zwar mit deut¬ 
schen Umlauten gearbeitet werden, die geschweiften Kom¬ 
mentarklammern und die eckigen Mengenklammern wurden 
aber durch die von Turbo-Pascal ebenfalls zugelassenen 
Ersatzzeichen »(*« und »*)« (für geschweifte Klammern) 
beziehungsweise »(.«und».)«(für eckige Klammern) ersetzt. 

(Udo Reetz/ev) 


Cursor-Mode 

Escape-Sequenz 

Block 

ESC + S 

Strich 

ESC + U 

Blinken 

ESC + F 

Stehen 

ESC + E 


Tabelle der möglichen Cursor-Formen im Basic 7.0 


(*$U+*) 

(*«**»»»•*•*««***«»«»**»***•«*»«*«*»*•***»»**»»«*«. 11 .»««««*) 
(* Beispiel für Zugriff auf die I/O-Ports des 8510: *) 

(* Utility zum komfortablen ändern des VDC Cursor Kodes *) 
<* Turbo Pascal auf Commodore 128 unter CP/M *) 

(*«*•*•*««••***«**««»*»*««•**«**««**«««««««««««««»««•«»»«) 

program cursorset (input, output); 

var BlinkMaske, (* Maske für Blinkbits in Reg. 10 *) 

StartLine: byte; (* Rasterstartzei1e des Cursors *) 
ci char; 

procedure Portüut (adrs integer; wert: byte); 

(* Ausgabe von wert auf dem 16-Bit-Port adr *) 
begin 


inline ($ed/$4b/adr/ 

(* 

LD 

BC,(adr) 

*) 

$3a/wert/ 

(* 

LD 

A,(wert) 

*) 

$ed/$79 

(* 

OUT 

(C) ,A) 

*) 


) 


end (* procedure PortOut *); 


procedure Portin (adr: integer; var wert: byte); 


(* Lesen von Port adr 

nach wert 

*) 


begin 

inline ($ed/$4b/adr/ 

(* LD 

BC,(adr) 

*) 

$ed/$7B/ 

(» IN 

A, (C) 

*) 

$dd/$2a/wert/ 

(* LD 

IX,(wert) 

*) 

$dd/$77/$00/ 

(* LD 

(IX+0),A 

*) 

$dd/$36/$01/$00 

(* LD 

(IX+1),0 

*> 


) 


end (* procedure Portin *); 

function vdcln (reg: byte): byte; 

(* Liefert den Wert des VDC-Registers reg *) 
var x: byte; (* Hilf«variable *) 
begin 

PortOut ($d600, reg); (* Registeradresse an VDC *) 

repeat 

Port In ($d600, x) (* Status lesen *) 

until x >—128; 

Port In ($d601, x); (* Daten-Register lesen *) 

vdcln x 

end (* function vdcln *) ; 

procedure vdcOut (reg, wert: byte); 

(* Schreibt wert in VDC-Register reg *) 
var x: byte; (* Hi1fsvariable *) 
begin 

PortOut ($d600, reg); (* Registeradresse an VDC *) 

repeat 


Portin ($d600, x) (* Status lesen *) 

until x >=128; 

PortOut ($d601, wert) (* Daten-Register schreiben *) 

end; 

begin (* main *) 
clrscr; 

writeln ('Cursor-Mode-Swap für C 128 und CP/M 3.0': 20); 

writeln ( ' S n»>»B a cn as »= 3es; : S3SB n S „ Ba , 3 ., BC ., * j 20); 

writeln; writeln; writeln; writeln; 

write (* Cursor B)linkend oder S)tehend ?'); 

repeat 

read (kbd, c) ; 

until c in (. 'b', 'B', 's', 'S' .); 

writeln (c); writeln; 
if c in (. 's', 'S' .) 

then BlinkMaske :* 0 
el se 
begin 

write (' S)chnell oder N)ormal blinken ? '); 

repeat 

read (kbd, c); 

until c in (. 's', 'S*, *n', N' .); 

writeln (c); writeln; 
if c in (. *s' f 'S' .) 
then BlinkMaske : = $40 
eise BlinkMaske := $60 
end (* eise *); 

write (' U)nderline- oder B)lackcursor ? '); 

repeat 

read (kbd, c) ; 

until c in (. 'u* f 'U', ’b', ’B' .); 

writeln (c); writeln; 
if c in (. 'u', 'U' .) 

then StartLine := 7 
eise StartLine : = 0; 
writeln; writeln; 

writeln ('**** Änderungen durchführen ? ****'); 
repeat 

read (kbd, c) 

until c in (. 'j', J', ’n', 'N' .); 

writeln (c); writeln; 
if c in (. * j', 'J• .) 
then 
begin 

vdcOut (10, BlinkMaske or StartLine); 
vdcOut (11,7) 
end (* eise *) 

end. (* program cursorset *) 


Listing zu unserer Cursor-Kur 


,1/Aj bT.Tv 
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Kaiser 

Möchten Sie auch einmal wie ein König ein Land 
regieren und das Staatsgeschick lenken? Dann 
versuchen Sie, als Kaiser Ihr Reich instand zu hal¬ 
ten und für Wohlstand zu sorgen. 

K aiser oder auch Hammurabi ist eine Strategie- 
Simulation. Ihre Aufgabe ist es, durch Landkäufe 
oder -verkaufe, Verkauf von Getreide optimale Aus¬ 
nutzung der Anbauflächen und gerechte Verteilung der Nah¬ 
rungsmittel an die Bevölkerung das Reich in bestem Zustand 
zu erhalten. So kann zum Beispiel das Land zugrunde gehen, 
wenn die Bevölkerung nichts zu essen hat. Andererseits wol¬ 
len die Leute eben mit vollem Bauch weniger arbeiten, so daß 
die Produktivität absinkt. Regeln Sie alles so, daß es Ihrem 
Reich wohler geht, so daß Sie lange regieren können. 


Das Programm 


Das Programm »Kaiser« (Listing) ist nur ein kleines, aber 
lauffähiges Grundgerüst, das ohne weiteres ausbaufähig ist. 
So können noch Faktoren wie arbeitsfaule Bevölkerung, 
Überfälle brandschatzender Horden, Unwetterkatastrophen 
oder vieles mehr mit integriert werden, um das Spiel reizvoller 
zu gestalten. Je komplexer die Faktoren sind, desto attrakti¬ 
ver wird auch das Spiel selbst. 

Die Random-Funktion, mit der hier gearbeitet wird, ist nicht 
in jedem Pascal implementiert. Fehlt sie bei Ihnen, so müssen 
Sie noch eine Prozedur »random« mit in das Programm ein¬ 
bauen. Spielen Sie ruhig etwas mit dem Programm und bauen 
Sie von Zeit zu Zeit noch weitere Faktoren ein. Sie werden 
sehen: Durch viele Ereignisse, die das Geschehen beeinflus¬ 
sen können, gewinnt Kaiser immer mehr an Reiz. 

(Dieter Mayer/hi) 


PROGRAN kaimari 
CONST 

ProduktivitMt * 7; 

VAR 

anbauf 1 aeche,gesamt f I accha, 1 andkauf , 

Vorrat v f1aecheprokopf,rattanschadan, 

hakt«rartrag,ernte,zutailung,nahrungprokopf v 

geburtanrata,starbarata,ausgaban,kornprais f 

verkauf ,vermoegen:real j 

jahr,jahre:0..20; 

zaehler v volk,zahl,geborene, 

gestorbene,bodenpreis:integer; 

getreide,kaufen,sinnvol1iboolean; 

inputichar| 

PROCEDURE Initialisierung; 

BEB IN 

zaehler :»1; 

kornpreis :»3; 

gesamtf1aeche s »30000; 
anbauf1aeche t »3000; 
bodenpreis i»30; 
vermoegen i»20000; 

hektarertrag :»4; 

Vorrat (»20000; 

ernte (»12000; 

volk (»4000; 

f1aecheprokopf s »gesamtf1aeche/volk; 
geborene :»0; 

gestorbene (»0; 
nahrungprokopf s »20; 
ausgaben s»vermoegen/B; 

END; 

PROCEDURE berechnung; 

BEGIN 

IF kaufen » true THEN 
BEGIN 


geeamtf1aechei»gesamtf1aeche«-1andkauf; 
vermoegen(»vermoegen-(1andkauf »bodenpreis>; 
END 

ELSE 

BEGIN 

gesamtf1aeches-gesamtf1aeche-1andkauf; 
ver moegen i »ver moegen-«- (1 andkauf »bodenprei s); 
END; 

bodenpreis(-20+random(5); 

IF getreide » true THEN 
BEGIN 

Vorrat s »vorrat-verkauf; 

ver moegen s »ver moegen-»- < kornpr ei s*ver kauf) 
END; 

vorrati»vorrat-<zuteilung*volk); 
ausgaben:»random(6000); 
vermoegeni»vermoegen-ausgaben; 
kornpreiss»l«-random(3>; 
hektarertrag:»4+random (3) ; 
ernte:»anbauflaeche*hektarertrag; 
vorrat:»vorrat+ornte; 
rattenschadens «abs(random(50)/100); 

Vorrat:»abs(Vorrat*1-rattenschaden); 

f1aecheprokopf:»gesamtf1aeche/volk; 

geborene:»random(90); 

gestorbene:»random(25); 

volk:»volk+geborene-gestorbene; 

END; 


PROCEDURE zustandsausgabe; 

BEGIN 

writeln('Momentaner Spielstands'); 
weitein; 

write('Wir schreiben das '); 

IF zaehler>jahre THEN zaehler:»jahre; 
write(zaehler); 

writeln('. Jahr Ihrer Herrschaft.'); 
writeln; 

write('Ihr Volk besteht zur Zeit aus '); 
write(volk); 

writeln(' Einwohnern, wobei Sie'); 
write(geborene); 
write(* Geburten und '); 
write(gestorbene); 

writeln(' verstorbene Personen haben.'); 

write('Sie besitzen '); 

write(gesamtf1aeche:B:2); 

write(* Hektar Land, wovon '); 

write(anbauf1aeche:B:2); 

writeln(' Hektar bebaut sind.'); 

write('Jeder Buerger bewohnt durchschnittlich 

write(flaecheprokopf:6i2); 

writ»ln(' Hektar Boden.'); 

write('Der Vorrat belaeuft sich auf '); 

write(Vorrats10:2); 

writeln(' DZ Getreide.'); 

write(Die Staatskasse enthaelt '); 

write (ver moegen: 10s 2); 

writeln(’ Taler.'); 

write('Staatsausgaben dieses Jahr: '); 
write(ausgaben:9:2); 
writeln(* Taler.'); 
write('Heutiger Bodenpreis: *); 
write(bodenpreis); 
writeln(' Taler je Hektar.'); 
write('Jahresertrag: '); 

write(hektarertrag:8:2); 
writeln(' DZ Getreide je Hektar.'); 
write('Kornpreis : '); 

write(kornpreis:5:2); 
writeln<* Taler je DZ.'); 
write('Gesamternte i '); 
write(ernte:8s 2); 
writeln(' DZ Getreide.'); 
write('Durch Ratten wurden '); 
write(rattenschadens5:2); 
writeln(' X der Ernte vernichtet.'); 
zaehler: »zaehler«-1; 

END; 


PROCEDURE eingabe; 

BEGIN 

writeln; 

write('Moechten Sie Land kaufen '); 
write('oder verkaufen (K/V) ? '); 
read(input); 
writeln; 

IF input »'k' THEN kaufen:»true 

ELSE kaufen:»false; 
write('Wieviel Hektar ? '); 
read(1andkauf); 
writeln; 

write('Gedenken Sie, Getreide '); 
write('zu exportieren (J/N) ? '); 
read(input); 
writeln; 

IF input -'j' THEN 

BEGIN 


>1 








getreidei«truej 

IF anbauflaeche <-0 THEN 



write( Wieviel DZ ? '); 

BEGIN 



read(verkauf)$ 

write('Spassvogel - wo wollen 

>5 


writeln; 

writeln('Sie denn anbauen ?'); 



END 

sinnvol1:*false; 



ELSE getreide:-false; 

END; 



write('Wieviele DZ Getreide goennen *); 

IF anbaufl aeche >0. 5« (gesamtf 1 aeche-*-! andkauf ) 

THEN 

write('Sie jedem Untertan ? '); 

BEGIN 



read(zuteilung) ; 

write('Nur die Haelfte des Landes '); 


writeln; 

writein('kann bebaut werden.') 

; 


write('Wieviele Hektar duerfen '); 

sinnvol1:»false; 



write(‘die Bauern bewirtschaften ? '); 

END; 



read (anbau-f 1 aeche) ; 

IF anbauf1aeche>produktivitaet*volk 

THEN 


writeln; 

BEGIN 



END; 

write('Soviel koennen Ihre Leute '); 



writeln('nicht bebauen.'); 



PROCEDURE eingabepruefung; 

sinnvol1s »false; 



BEGIN 

END; 



writeln; 

END; 



IF kaufen - true THEN 

BEGIN 



IF (landkauf«bodenpreis) >■ vermoegen THEN 

initialisierung; 



BEGIN 

writeln('Wieviele Jahre moechten Sie 

regieren 

?'); 

write('Landkauf erlaubt Ihre '); 

readln(jahre); 



writeln('Staatskasse nicht.'); 

zahls »random(99)+1; 



sinnvol1: »false; 

FÜR jahr:»l TO jahre DO 



END; 

BEGIN 



IF kaufen - false THEN 

zustandsausgabe; 



IF gesamtf1aeche-1andkauf <0 THEN 

REPEAT 



BEGIN 

BEGIN 



writeln('Soviel Land besitzen Sie nicht.'); 

sinnvol1i»true; 



sinnvol1:=false; 

eingabe; 



END; 

eingabepruefung; 



IF Zuteilung <«0 THEN 

END; 



BEGIN 

UNTIL sinnvoll; 



write('Leuteschinder — Sollen '); 

berechnung; 



writeln!'die Buerger verhungern ?'); 

END; 



sinnvol1i«false; 

zustandsausgabe; 



END; 

END. 



IF Zuteilung >■ (vorrat/volk) THEN 




BEGIN 




writeln('So gross sind Ihre Vorraete nicht.'); 
sinnvolIi»false; 

Listing »»Kaiser«: Bestimmen Sie über das Wohl und Wehe 

END; 

Ihres Volkes 




Berechnen 
gemeinsamer Teiler 


Dieses Programm nimmt Ihnen die überaus lästige Die Prozedur eignet sich gut zum Einbinden in mathemati- 
Arbeit ab, alle Zahlen herauszufinden, durch die sche Programme. also etwa in ein Mathe-Lexikon auf dem 
eine andere teilbar ist. Computer. (Dieter Mayer/hi) 


S icher hatten Sie schon gelegentlich mal das Problem, 
daß Sie alle Teiler einer Zahl herausfinden wollten. Sei 
es für die Verwendung im Bruchrechnen oder zur 
Ermittlung von Primzahlen. Diese Arbeit nimmt Ihnen nun die 
Prozedur »Teiler« (Listing) ab. 

Nach der Compilation werden Sie gefragt, aus welcher Zahl 
alle Teiler berechnet werden sollen. Bitte geben Sie hier nur 
ganze Zahlen ein. Das Programm gibt Ihnen nun alle Teiler die¬ 
ser Zahl aus. Wird kein Teiler gefunden, so ist es eine Prim¬ 
zahl, was auch ein Antwortsatz bekannt gibt. 


Zum Programm 


Nach der Eingabe der Zahl, aus der die Teiler berechnet 
werden sollen, wird zuerst ein Flag (Schalter) auf »unwahr« 
gesetzt. Danach versucht das Programm, die eingegebene 
Zahl so oft wie möglich zu dividieren. Sind Teiler vorhanden, 
werden diese ausgegeben und das Flag auf »wahr« gesetzt. 
Am Ende der Prozedur wird noch einmal der Zustand des 
Flags abgefragt. Ist es »unwahr«, so konnte kein Teiler gefun¬ 
den werden, und die Meldung »Diese Zahl ist eine Primzahl« 
erscheint auf dem Bildschirm. 


FROGRAM Teiler <Input,Output); 

VAR Zahl,Tei1er:Integer; 

Schalter:boolean; 

BEGIN 

write (Bitte geben Sie die Zahl ein, 

aus der die Teiler berechnet '); 
writeln ('werden sollen !'); 
read (Zahl); 

Schalter:=FALSE; 

WHILE Zahl>0 DO 
BEGIN 

FOR Teiler:=2 TO TRÜNC(Zahl/2) DO 
BEGIN 

IF Zahl MOD(Teiler)=0 
THEN BEGIN write (Teiler:5); 

Schalter:=TRUE 

END; 

END; 

IF Schalter=FALSE 
THEN write (' Diese Zahl 

ist eine Primzahl'); 
writeln; writeln; 
read (Zahl); 

Schalter:=FALSE; 

END; 

End. Listing »»Teiler« 
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Hier 

für 

Turbo- 

Pascal 

Werden lauffähige Turbo- 
Pascal-Programme erzeugt, 
so verbraucht die in jedem 
xxx.com-File vorhandene 
Run-Time-Library 8 KByte. 



S ollen mehrere kurze Programme auf einer Diskette 
gespeichert werden, stößt man schnell an die Grenze 
der verfügbaren Speicher-Kapazität. Der Turbo-Pas- 
cal-Compiler bietet mit der H-Option die Möglichkeit, Pro¬ 
gramme ohne die Run-Time-Library zu compilieren und sie 
dann als sogenannte Chain-Files aufzurufen. Von dieser 
Möglichkeit, Platz zu sparen, macht das vorliegende Pro¬ 
gramm Gebrauch. 

Die Benutzer-Programme werden speicherplatzsparend 
als xxx.chn-Files direkt auf die Filer-Diskette compiliert, ins 
Inhaltsverzeichnis (Inhalt.fil) eingelesen und dann von Filer 
aus aufgerufen. Um wieder zu Filer zurückkehren zu können, 
sollten die Benutzer-Programme mit der Prozedur »Ende« 
(siehe Listing) abgeschlossen werden. 

Die Auswahl der einzelnen Funktionen von Filer erfolgt mit 
den Cursor-Tasten »Pfeil nach oben«, »..nach unten«, »..rechts 
und links«. Die jeweilige Funktion beziehungsweise die 
Benutzer-Programme werden invers als Leuchtfeld darge¬ 
stellt. Durch Drücken der Home-Taste wird die angezeigte 
Funktion (Benutzer-Programm) ausgeführt. 


»Programm« führt die Benutzer-Programme aus, »Neuauf¬ 
nahme« liest ein auf der Diskette vorliegendes xxx.chn- 
Programm in das Inhaltsverzeichnis ein, »Löschen, Umbe¬ 
nennen und CP/M« erklären sich von allein und bedürfen 
somit keiner weiteren Erläuterung. 

Ob groß, ob klein. • • 

Alle vom Programm geforderten Eingaben können beliebig 
als Klein- oder Großbuchstaben erfolgen. Durch Drücken der 
ESC-Taste können alle laufenden Routinen abgebrochen 
werden. 

Das Quellprogramm besteht aus filer.pas und lib.inc. In 
lib.inc können Anpassungen an verschiedene Terminals vor¬ 
genommen werden. Die Erläuterungen sind in das 
Programm-Listing eingefügt. Das lauffähige Programm 
besteht aus filer.com. Das File inhalt.fil wird beim ersten 
Programm-Lauf automatisch erzeugt. 

(M.Schlösser/ev) 


progran filer; 

var 



lines, inharray : 

defstring; 

(X Written bv M.A. Schlösser X) 

arraynr, arraylaenge.i : 

integer; 

(X Rheinstr. 28 X) 

filename.helpstring : 

anystring; 

(X 6100 Darmstadt X) 

Druef,file.exist : 

boolean; 

(X Tel: 06151 - 2 25 38 X) 

filevar : 

file; 

(X Stand vom 25. Juni 1985 X) 

zch : 

char; 


(X$I filer.lib X) 


(X Turbo-Pascal Progranne können speicherplatz-sparend X) 

procedure initinhalt (var z : defstring; 

(X mit der H-Option des Compilers compiliert und von X) 

var anz_rec: integer); 

(X diesem Programm aus aufgerufen werden. X) 

(X liest Inhaltsverz. von der Diskette und X) 

(XXSXXXSXSXXXXSXXXXXJaXXXXXXXIXXSSXXXXXXXXXXXXXXXXnDBaßD 

(X erzeugt inharray 

X) 


begin 


tvpe inhaltrec = record 

anz_rec:= 0; 


Progname: string (.12.); 

pruef:= exist ('asinhalt.fil'); 

end; 

assign (dateia:inhalt.fil); 


if pruef then 


var dateibuffer: inhaltrec; 

begin 


datei : file of inhaltrec; 

reset(datei); 


tvpe 

while not eof (datei) 

do 

defString = arrav (.1..32.) of string (.12.); 

begin 


defset = set of char; 

read (datei,dateibutter); Listing. »filer.pas« 

anystring = string (.80.); 

anz_rec:= anz.rec+1; 

const 

z(.anz_rec.) := 

dateibuffer.progname; 

bell = A G; (X Glocke X) 

1 end; (X while X) Fortsetzung auf Seite 68 
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JETZT AUF SCHNEIDER-COMPUTERN 



DIE PROGRAMM-BIBLIOTHEK FÜR TURBO PASCAL 





TURBO-Lader-Grundpaket 

Das TURBO-Lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
TURBO-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze¬ 
duren und Funktionen, die der Profi zur 
schnellen Lösung seiner Programmierauf¬ 
gaben verwenden kann und dem Einsteiger 
das Erlernen der Pascal-Programmierung 
erleichtern. Das Grundpaket TURBO-Lader 
bietet ein breitgefächertes Spektrum von 
Routinen, beginnend bei Bitmanipulation 
über optimierte Sortierverfahren bis hin zur 
Anwendung von Splinefunktionen, Fourier¬ 
transformation und Regressionsanalyse. Des 
weiteren Disketten-Routinen zum Lesen 
eines Inhaltsverzeichnisses oder zum Lesen 
und Schreiben einzelner Sektoren, Routinen 
zur Datenüberprüfung, ein Spooler mit Steu¬ 
erroutinen, erweiterte Stringverarbeitung 
und vieles mehr. Alle Routinen werden im 
kommentierten Quellcode für den TURBO- 
Pascal-Compiler ausgeliefert. 

Das TURBO-Lader-Grundpaket erfordert 
den TURBO-Pascal-Compiler. Es ist liefer¬ 
bar auf 3 "-und 51/4 "-Disketten und lauffä¬ 
hig auf dem Schneider CPC 464, CPC 664, 
CPC 6128 und Joyce. 

3"-Disk. Best.-Nr. MS 413 
5 1 / 4 "-Disk. Best.-Nr. MS415 

DM 138,-/sFr. 125,-/öS 1380,-* 

*inkl. MwSt., unverbindliche Preisempfehlung. 



TURBO-Lader Business 

TURBO-Lader Business umfaßt einen kom¬ 
fortablen Bildschirm-Maskengenerator und 
eine professionelle Dateiverwaltung. Der 
Maskengenerator gibt dem Pascal-Program¬ 
mierer ein Werkzeug zur einfachen Bearbei¬ 
tung von Bildschirm-Masken in die Hand. Eine 
Maske kann beliebig viele Textfelder, bis zu 
128 Eingabe- und 128 Ausgabefelder enthal¬ 
ten. Eingabefelder können auf komfortable 
Art editiert und auf Gültigkeit überprüft wer¬ 
den. Das Dateiverwaltungsmodul unterstützt 
die Programmierung von Datenbankanwen¬ 
dungen und Stammdatenverwaltungen. Es 
besteht aus einer komfortablen Datensatz- 
und Indexverwaltung mit mehreren Schlüs¬ 
seln und Index-Dateien, die einen sekunden¬ 
schnellen Zugriff auf beliebige Daten ermög¬ 
licht. Mit diesen beiden Modulen stehen dem 
Anwendungsprogrammierer zwei professio¬ 
nelle Werkzeuge zur zeit- und kostensparen¬ 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im kom¬ 
mentierten Quellcode für den TURBO-Pas¬ 
cal-Compiler ausgeliefert. 

TURBO-Lader Business erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3"- 
und 51/4 "-Disketten und lauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 



TURBO-Lader Science 

TURBO-Lader Science ist eine Sammlung 
technisch/wissenschaftlicher Funktionen 
und professioneller statistischer Verfahren 
für die Bereiche Medizin, Betriebs- und Volks¬ 
wirtschaft, Technik und Naturwissenschaf¬ 
ten. Das Modul enthält alle arithmetischen 
Operationen zur Verarbeitung komplexer 
Variablen inklusive der Umrechnung der Dar¬ 
stellung und die wichtigsten komplexen 
Funktionen wie Potenz, Wurzel, trigonometri¬ 
sche, transzendente und exponentielle Funk¬ 
tionen. Darüber hinaus ist ein vollständiges 
Paket zur Verarbeitung komplexer Matrizen 
und Vektoren enthalten. Der Statistikteil ist 
ein praktisches und direkt verwendbares 
Werkzeug zur computerunterstützten, effek¬ 
tiven Datenanalyse. Er umfaßt eine Vielzahl 
statistischer Funktionen mit den Schwer¬ 
punkten Regression und Korrelation, des¬ 
kriptive Statistik, Faktoranalyse und Testver¬ 
fahren. Alle Routinen werden im kommentier¬ 
ten Quellcode für den TURBO-Pascal- 
Compiler ausgeliefert. 

TURBO-Lader Science erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3"- 
und 51/4 "-Disketten und lauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 

3"-Disk. Best.-Nr. MS 433 
5 1 / 4 "-Disk. Best.-Nr. MS 435 

DM 189,-/sFr. 169,-/öS 1890,-* 


und Joyce. 

3"-Disk. Best.-Nr. MS 423 
5V-Disk. Best.-Nr MS 425 

DM 148,-/sFr. 132,-/öS 1480,-* 

Übrigens können Sie auch alle TURBO-Pascal-Produkte für Schneider CPC 464/664/6128 und Joyce bei Markt&Technik beziehen: 

- TURBO Pascal 3.0, Best.-Nr. MS 514 (CPC), Best.-Nr. MS 515 (Joyce) DM 225,72* - TURBO Tutor (englisch). Best.-Nr. MS 544 (CPC), Best.-Nr. MS 545 (Joyce) DM 104 86* 

-TURBO Pascal 3.0 mit Grafikunterstützung, Best.-Nr. MS 524 (CPC) DM285,-* - TURBO Graphix Toolbox, Best.-Nr. MS 564 (CPC) DM 225 72* 

- TURBO Tutor (deutsch), Best.-Nr. MS 534 (CPC), Best.-Nr. MS 535 (Joyce) DM 1 04,86 * - TURBO Toolbox, Best.-Nr. MS 554 (CPC), Best.-Nr. MS 555 (Joyce), DM 225>2 * 

TURBO-Pascal® ist ein Warenzeichen der Borland Ine, USA. TURBO-Lader, TURBO-Lader Business und TURBO-Lader Science sind Warenzeichen der Fa. Lauer & Wallnitz. 


Diese Markt ÄTechnik-Softwareprodukte erhalten 
Sie in den Fachabteilungen der Kaufhäuser 
und in Computershops. 

Wenn Sie direkt beim Markt&Technik Verlag 
bestellen wollen: 

Nur gegen Vorauskasse, Verrechnungsscheck 
oder mit der eingedruckten Zahlkarte. 



Markt&Technik 


Unternehmensbereich Buchverlag 
Hans-Pinsel-StraBe 2, 8013 Haar bei München 


Bestellungen im Ausland bitte an 
untenstehende Adressen: 

Schweiz: Markt&Technik Vertriebs AG, 
Kollerstr. 3, CH-6300Zug, Tel. 042/41 56 56 
Österreich: Ueberreuter Media Handels¬ 
und Verlagsges. mbH, Alser Str. 24, 
A-1091 Wien, Tel. 02 22/481538-0 







if anz_rec=0 then 
begin 
lowvideo; 

gotoxyC 1,12) ;wnte ('Neuaufnahme aufrufen '); nornvideo; 
end; (X if anz-rec X) 
end (X if pruef X) 
eise begin 

rewrite(datei); 
lowvideo; 

gotoxy(l,12);write ('Neuaufnahme aufrufen '); normvideo; 
end; (X eise X) 
close (datei); 

end; (X procedure initinhalt X) 


procedure head_string (var zsdefstring); 

(X Dient zur Zuordnung der Daten für den X) 

(X auszudruckenden array X) 

begin 

z(.l.):= 'Programm'; z(.2.):= 'Neuaufnahme'; z(.3.):='Löschen'; 
z(.4.):= 'Utobenennen'; z(.5.):= 'CP/M'; 
end; (X procedure heacLstring X) 


procedure programn_ueberschrift; 
begin 

gotoxy(1,16);clreol; 

write ('PROGRAMME (vorh: arraylaenge,' max: 32 )'); 

end; 


procedure msg(zei1 es integer); 
begin 

gotoxyd,zeile); 

writeln ('Leuchtfeld mit Cursor-Tasten auf gewünschtes Programm stellen'); 

writeln ('und die HOME-Taste drücken.'); 

end; 


procedure iniLarray; 

(X Schreibt inharray auf Diskette X) 

begin 

assign (datei,'inhalt.fil'); 
rewrite (datei); 
for i:= 1 to arraylaenge do 
begin 

dateibuffer.prognane := tnharraydi.); 
write(datei,dateibuffer); 
end; (X for i X) 
close (datei); 

end; (X procedure iniLarray X) 

(XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

(X HauptProgramm Filer X) 

(XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

begin 

clrscr; 

writelnC Filer für Turbo-Pascal Programme unter CP/M'); 

writelnC written by M.A.Schlösser Juni 1985'); 

writeln; 

for is= 1 to 79 do write ('-'); 
initinhalt (inharray,arraylaenge); 

heacLstring (lines); (X liest Funktion-Auswahl in das array lines X) 
schreib_array (lines, 5, 1,5, 15, 4 ); 

(X array/ anz/ x-y pos/ abstand/ worte/zeile X) 
gotoxy(l,7); for i:= 1 to 79 do write 
progranm-ueberschrif t; 

schreib-array (inharray,arraylaenge,1,17,15,4); 

(X schreibt Benutzer-Prog. X) 
repeat (X until true = false X) 
msg(9); 

arraynr;= select (lines, 5, 1,5, 15, 4 ); 

(X array/ anz/ x-y pos/ abstand/ worte/zeile X) 


clrln(9,12); 
case arraynr of 
1; begin (X Programm X) 
gotoxy(1,9);lowvideo; 
writeln ('Programm-Auswahl');normvideo; 
msg(18); 

arraynr:= select (inharray,arraylaenge,1,17,15,4); 
if arraynr <> 0 then 
begin 

assign(fi1evar,inharray(.arraynr.)*'.chn'); . 
chain (filevar); 
end (X if arraynr X) 
eise c1rln(9,11); 
end; (X case of 1 X) 

2; begin (X Neuaufnahme X) 

gotoxy(l,9);Lowvideo;writeln('Neuaufnahme')jnormvideo; 

write ('Das ins Inhaltsverzeichnis aufzunehmende File muß'); 

writeln ('unter xxx.chn auf der'); 

writeln ('Diskette vorliegen. Die Namen-Eingabe ohne File-Kennung!'); 
line_editor ('Programm-Namen eingeben',1,13, 8, filename, 

(.'8'..'9','A'..'z'.)); 

(X Text-Ausgabe/ x-y pos/ Länge/ variable/ gültige Zeichen X) 
if filename <> " then 
begin 

Umw_in.Grossbuchstaben (filename); 
helpstrings= filename*'.chn'; 
pruef;= exist (helpstring); 
if pruef then 
begin 

arrayIaenge:=arraylaenge*1; 
inharray(.arrayIaenge.)s=fiIename; 
programiLueberschrift; 

schreib_array (inharray,arraylaenge,1,17,15,4); 

iniLarray; 

end 

eise begin 

write (bell); 

gotoxyd, 13) ;clreol; 

write ('Das File —> ',helpstring,' 

<— ist nicht auf Diskette'); 
write (' vorhanden. Taste drücken.'); 
repeat until kevpressed; 
end; (X eise X) 
end; (X if filename O " X) 
clrln (9,14); 
end; (X case of 2 X) 


3: begin (X Löschen X) 

gotoxy(1,9);lowvideo; write ('Löschen'); normvideo; 


msg<10); 

arraynr:= select (inharray,arraylaenge,1,17,15,4); 
if arraynr<)0 then 
begin 

clrln( 10,11); 

gotoxyd, 18);write ('File —>',inharraydarraynr.), 
löschen (j/n) '); 


repeat 

read (kbd.zch); 

until upcase(zch) IN (.'J','N'.); 
if upcase(zch) = 'J' then 
begin 

assign (filevar,inharray(.arraynr.)+'.chn'); 


erase (filevar); 

for i:= arraynr to arraylaenge do 
inharray(.i.):= inharray (.id.); 
arraylaenge:= arraylaenge-1; 
iniLarray; 
clrln(17,24); 

schreib-array (inharray,arraylaenge,1,17,15,4); 
end; (X if zch = J X) 
end; (X if arraynr O 0 X) 
clrln(9,11); 

programiLueberschrift; . . 

end; (X case löschen » Listmg. »fller.pas« 

: begin (X Uisbenennen X) (Fortsetzung) 
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-B|aßtun zjB|d uajagng uajapuB uap ins tujnj. jasaip gnm unN 
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- ajp ja anqgM ‘amos uapiaqospa jaiq 
-ujassv pun g uaqosiMZ xpn JO^ qois 
ja s|B pun ‘ßjuaM nz qoop jaqB uusp 
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jassaq ßunjajtuujBjßojdujapAg jnz 
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- »pujjd« jaq os|b jajq - ßunsjaMUBpunq 
-J3A Jap qoBu jqoBui pun uaßunsjaMuy 
-asso a;p qoBjuja jajndujoo jap 
pajjoußj ‘majsjBp »6« Japo »8« uaiqBZ 
ajp jaqB japo jajpz auja>| sbp ‘ uaqsq 
uaqaßaßuja |oqujAg u;a a;s s||ej 
qggi »uaqospnjqojnp« aßBiuagoo/w 
a||B jatnduiOQ jap ajM ‘uusp uaqas 
ajg uaßunsjaMuv->)Bajq ajp ||Bjaqo 
IBtuujd asjdMsßunqn ajs uaujapug 

ßBjueqoo/v\ 7 Jep ßejuuos 
L :sße|ueL(30M seu|e jeuiuinN 0 |p o»ia 
ßB}ueqooM ’tr Jop is; ßejsjeuuoQ 
V :3ßBjueqoo/w seu|o jeuiuinN «|p a))|g 
*ße)u»L|30M V Jap XI ßejuoft 
I. :sßB|uegoo/w seu|a jauaunN 0|P auia 

:ßBjuaqooM 

uapuajajpuodsajjo>) tuap puj jajnd 
-ujoq jap lapoMjuB ‘uaqaßuja l pun 
l uaqosjMZ iqBz auja ja;q a;s uua/v\ 

[ 

f (07 -Saq 

-uaqooft -p% jap qsp „)jqupjd 

[ 

fjjBOJq • („Sbpuuos,, ) 

jqupjd asso 

‘jpsajq f(„3BqsuiBS„) 

jqupjd 19 asao 

fjpsajq ‘(„SBpfaja,) 

jqupjd bsbo 

fjjBajq 

‘ ( u 3Bqsjauuoa /( ) 

jqupjd :y asBO 
; jpsajq ‘(^qooAqqpw«) 

jqupjd :£ asso 

‘jlBajq { ( Ä 3Bqsuapa„) 

jpujjd :z osbo 

fjpaajq t („,3Bquow„) 

jqupjd :p asao 

) 

(o)qoqfMS 
f8^-()jBqoq.09=o 
i („ :s9Bq.U0qooM s 0 Uf© 

j0UiujnM 0^p 00419* )J 1 ^ufJd 

i 0 quf 

} 

( )upBUl 

ißunsjaMuy-asBO-qojjMS auja 
osuaqa igß|jaA ‘uaqßq juqgMja uauoq 
-^nj)suoMuapaiqos piu ßuBquaiuujBsnz 
lu j ujqjOA jjM uap ‘|qaiag->|Bajq jaa :uaq 
-asaßjOA spajaq apiqqv jsj ‘}Sj jqosunM 
•jaun suapsjauj sajp bo sns ßunßujpag 
jap ßunpnjd auqo a;s pjqrq pun a||Bd 
uapuaß|Oj a||B os|B gneiqojnp bsbo 
» juaqopazquazojg upg,, XNIHd Li 
h lloquiAsJBiioa upg„ XNIHd 9i 
„ jznajj(iaddoa upg„ XNIHd 
„Iuaqopazs3unjqpjuy upa„ XNIHd VC 
„juaqopazajrusnv upg„ XNIHd £€ 
u ;uaqopazjaaq upa„ XNIHd ZC 
LC9C 

'(.V'jCii'Zi 0X00 2f-($B)0SV NO OZ 

XndNI OT 
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(ßq/B||njo>| u|}je|A|) 

ZZl M3ou jeuiuii )6| | seieqoio 
666 I«! I 

ZZV I«! ! seieqoio 

qapiaui LuuiBjßojd -0 sbo 

( 

J(T‘ Ä u\P^ 

q.ST T saiB^oi Ä )j^jd 
/# Sunsie« 

-nz^jsn 9IB310I #/ 1666=1 
/# T uoa 

UOT^TUTJSa 3IB310I »/ iT W 

) 

()q.ounjqns 

( 

f(T^u\pj{ qoou jourarp 

q.ST T saiBqoio,,)JQ-UTJd 
i ()qounjqns 

qsT t saitsqoio, ) J^ui-id 

) 

()U^BUI 

/# £2T Q-ST 

T seiBqoiS #/ f£2T=f quf 

:9|qBUBA a|Bqo|ß 
3!P jepsiM jajndiuoo jap jzjnuaq ßunj 
-jaqjBag jap apug qoBN qapua/vuaA a|q 
-BUBA a|B>)0| ajp pjjM uoipjung uaßjjoq 
-aßnz jap )jazjnB~| jap puajqgM uajajs 
-i|B!)jU! suaujBN uaqoja|ß aiqBUBA a|B>|0| 
auja aiuaiqojd auqo a;s uauuo>) ‘uaqBq 
IJdjUjjap aiqBUBA 9|eqo|ß auja ais 
uua/\A ua|Bqo|ß uap joa ßun||a;sßuBJ 
-joa auja uaiqBUBA 3|B>|0| uaqBq o u| 

liapuBq 

aiqBUBA aqiasajp wn jatuiuj qojs sa |j3M 
'qoBjuja zubB - aß|cy jnz uauojpiunj 
uajapuB ua||B u; ßumapuBiaApa/w 
a;p )Bq uojptung jauja uj ; uoa spa/v\ 
sap ßunjapuBJaA apap ieq uaj|Bqaq 
666 JJ9M uap | {jBp qßnazaq yuud 
uoa jnjjny Jaa uojpiunj aßjuJBuqojaiß 
aip ub a||OJ)uo>| a|p ißgj}jaqn »:()jounj 
-qns« iqajag jaa »666 Ua/\A uap ! isq 
OujBtu u|« :a|jaz-^uud a|p jsja/waq 'janqe 
W3jjo>| ßunsiaMnz ajp 8 B 0 uasajM 
-aßnz 666 JJ9M Jap uaiqBUBA jap pj|M 
OujBtu u| |Bqo|ß j |Sj jjiuos uauujßaq 
Ojounjqns japo ()u|buj JOAaq qoou os|B 
‘a|iaz uajsja jap ui jqajs i aiqBUBA aia 

[ 

{ (T',u\P*=T Q-ST 
()qounjqns uf qony„ )jq.u^ad 

3 

()qounjqns 

) 

i Qqounjqns 
f (T'„u\p 3 ; q.J9 m uap 

T W ()ujbui ui Ä )jqupjd 

/* ()UfBUI up 

3unsp9rtnzqasft #/ I666=T 

3 

()UfBUI 

fp qup 

:uapj3M jjqrqaß 
qne uauojpiung jap qiBqjagnB suiujbj6 
-ojd sap Bubjuv uap ub a|s uiapu; 
‘luuB>|ja ßq|nßu|auiaß||B S|B jaijduiOQ 
luoa uapjdAA ais uauojpiunj ua||B u| ua| 
-Bqo|ß aip ua}|aß ‘piuBjqosaq uoj^ung 


auja ins qojs qojajaqsßun^jjM uajap 
‘uaiqBUBA ua|B>|0| uap nz zjBsuaßa© 
ai| uajBquiajdA uaiqBUBA a|Bqo|ß 
ajuuBuaßos qonB jaqB uauuo>| ais 

»£ qoou jeuiui| ()u|eui u| )S| x« ißunpiew 
:()u|eui 

»02 OPunjqns U| )S| x« :Öunp|e|N 
Z.x = x :()punjqns 
»01. Opunjqns u| |S| x« :ßunp|9|fl 

0l = x :()jounjqne 
»£ ()u|B uj u| )S| x« :0unp|BM 
E = x :()u|bui 

:uaqBßsnv uapuaß 
-|oj aip lutuBjßojd SBp pajaji puaqoajds 
-pueuiaa ()}ounjqns uj pa/\A uap jns 
uaßun^jjMsny aqoiaAApuaßji }Bq ()u|Biu 
uj sa)ja/\A sap uouB|nd!UB|/M au|a>| 
atuBN jap pqiaiq ßunuituqsujajaqQ aß;z 
-u|a ajqi unj nz ()}ounjqns u| x uaiqBUBA 
jap }|w spqoju }dnBqjaqn }Bq ‘apjn/w 
piaiuijap ()uibuj ui aip ‘x aiqBUBA aia 

'[ 

; ( X ‘« U \P^ ()pounjqns 

up qzpaf qsp x„ )jq.upad 
*S*x=x 

'■ ( X ‘// U \P3» 

()qounjqns up qsp x (/ )jpupad 

‘0T= X 

ix 

3 

Qpounjqns 

( 

f(x^ y/ u\p^ qoou J9uiurp 

Qupbui up qsp x„)jqupad 
i ()Q.ounjqns 

J( x ‘„U\p^ 

Oupsui up psp x„)jqupad 
f£=x 
ix q.up 

3 

()upuui 

:ua)|ajßnz 

iqom a|S jnB uauuQ>| uauo^unj ajapuy 
pu|s piajUjjap uoj^unj asa;p jnj u;a||B 
pun ßizuja uaiqBUBA 9 !P 'jsjnapaq 
»|B>|cr|« qapuaMjaA uaiqBUBA a|B>|0| - 
(jureiu qonB os - uoq>)und apaf {)Bp ‘ua>| 
-jaiunzuB 'qoou jnu ^s; ßipqoiM 'U|as jbm 
aqßßjaqnuajBa auqo inj^nBUJUJBjßojd 
-jaiun aqoEjuia jap uauqi a)||os }iujbq 

uaqo 

-ajdsjua (ja^aM os pun asso ‘anq/w ‘jo|) 
siqajag sau|a uauJBN tuap }qo|U uaiqBu 
-ba Japo uoij^unj jauia ubujbn ua^jnp 
qo||jn}BN iiysdaßjnB os|B - qosquapi 
»OzaiuBusuoipiunj jaßuB| uja« pun 
»()l_aiuBusuo!^un| jaßuB| uja« uauJBN 
aip ijiuBp puis ujandujoo uaqoios jag 
uapajqosjajun ua||3)S }qoB japo sqoas 
ua)SJa a;p jnu jaqe uapjaM sa ‘u|as 
ßuB| ßjqaj|aq uauiBN uajjnp ujaijdiuoQ 
uaisiaui uap jag )ßa|aß)sa^ p|Bxa jqoju 
ajqojy pun ußqßjuja>| uoa pjbpub^s-o 
ujj apjnM pun qB jaijdmoo iuoa }ßugq 
aßueisuaujBN 8}qnB|ja |BiujXBiu aja 
uaqBq aßicy jnz uauojSj||o>|suaiuBN 
uub>| |aßay asajp uaßaß go)SJ3A u;g 
qjdjAjasaj ‘uajaiBps^aqjOjiqjg uapajaji 
-aß^juj uap uj lajdsjag iunz ‘sja|jdiuoo 
sap ßun}|BAAjaA aujajuj ajp jnj qoj|iuwu 
uauiBN asajp pujs ujajajiuujßjßojd 
-0 uap jaiun jjaquaßoijdao ja|Buoj^BU 




-jajuj qoBN uaiBjnzqs jaqB jsj subujbm 
saujd |oqujÄs tuajsja s|B sqojj)sja)un 
sap ßunpuaMjaA jap uoa aqoiJis 
-jajun Japo ujayjz ‘uaqB}sqong pujs 
uaqojaz uaqojusaj aja ujas ( ) qojj}s 
-jajun uja japo z pun y asja/wsßunq 
-ajzaq z pun b uaqosjMz aqBjsqong uja 
uaqojaz a)sja ssp {jnw os uaqoajds 
qua uauojtuaAuo>| uassjMaß - uaiu 
-BUuaiqBjJBA ajp ajM osuaqa suaßjjqn 
- uassniu uauojpiuny jap uauJBN aja 
iqnB|ja ‘jqojjds 
-}ua o uoa uaßunjBqu|ajaA-xB;uAs 
uap sbp ‘Biuaqos uajjaMz lujaq jasajp 
}Sj qajajqjaA e snB qqg uoa ^nj^ny uap 
(|BOSBd) nsqjny ajsja jap puajqgM 
S uoqjujiapsuoj^unj 
qqz uojijujjapsuoj^uny 
eqz uoqiujjapsuojj^und 
qz uoujuüapsuoj^unj 
bz uoujUjiapsuoj}>|und 
Z uojijujjapsuojwunj 
l. uojjjujiapsuoj^unj 
:uaq 

-jajqos o uj ais uassnuj uassap qejs 
C uoqjujiapsuoj^unj 
qqz uoujuqapsuoj^uny 
Bqz uojjjuqapsuojiiiund 

qz uojKUj^apsuoj^und 
bz uoqjujjapsuojpiund 

Z uojjjujiapsuoji^und 
l uoj}jUjiapsuoq>|und 
:uaj 

-ajuituBjßojd os iqoiu os|b uapnp ais 
jaq uaujujBjßojd-Q uoa }ja>| 
-jßqsaq pun ija^qojipuBjsjaA Jnz jqas 
}6 bj} |B0SBd jaqnuaßaß ßun>|UBjqos 
-ag asaja uub>| uapjaM uajnjaß^nB 
uojpiuny uaßjßuBqqsun ‘uayjjp jauja 
uoa qonB iqoju ajp 'uoj}>|und aßjßugqqB 
uojpjuny uajapuB jauja uoa aujd>| os|b 
iqjß sg ßqjaMqoja|ß uauoj^unj a||B 
pujs o u| qsj iqnBpa |BOSBd uj sbp ajAA 
‘uaqsq uauojwunpajun »uajBAjjd« ajqj 
iqoju jaqB uauuo>| q uj uauoj^unj 
qqnBpa ua^juqoapajuioiBjßojd 

3AjSjn>|aj qonB pujs ijuios uajaj>|oo|q 
ja)nduJOO uajixiBsaß uap uauojpiuny 
yapunq ajajqauj qojnp pun uaqjajj 
-jaqn iqoju sa ais uuaM 'uiajqoBqosjaA 
ßjqajiaq qojs uassB| ajnjjnBsuoipiunj 

UOj)jU 

-qaa S|B ub}sub *njjnBSuoji>|und s|B sajp 
apunisjaA jaijdujoo jap uuaa uazjas 
^undqojj)s uauja s||Bjsaujd)| a;s uapnp 
‘;qa}S uoj^uny jap uauiBN J9P o m ‘pop 
os|B ‘saido>|suo!}>|und sap apug uiy 

()li|BLU J9p0|M U|q qo| 

Ouououniqns u|q qoj 
()u|Biu u|q qo| 

:snB os ^uiBsaßsuj 

os|B }qajs aqBßsnBuujqospijg aja 
»OujBui japajM 
ujq qo|« :sns iqajag-qujjd uapuaß|0| 
-qoBu uap ;jqnj sg >|onjnz OujBtu qoBu 
uiujBjßojd-0 SB P PL|9>) ‘isj apug nz 
japajAA qoja|ß uoj}>|und asajp Ba *»{)uojj 
-oun^qns ujq qo|« iqa^aqaqBßsny jap 
iqajs poa asajp janaqjßaq pun ()uoq 
-ouniqns uoj^unpa^un Jap |nj|ny uap 
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uoq j uoa jj 3/\/\ uep qojs jajndwog jap 
gep ‘nzep jjqnj »:(i)a>jonjp« jnjjnv jaa 

( 

‘(x < „u\p^)j5.u-[jd 

) 

/# uaaafufjap 
diCq.j 0 q. 0 UiBJB(£ #/ fx q.uf 
/^©^©ureJBd 

J0IBUIJOJ Q-SI x #/ (x)0}tonjp 

[ 

'■ (TTAV) 83 t ori ' I P 

i (f )0)tonap 

*TTZ^=T 

/# U0JBquf0J0A ©iqBpjBA 

-J0q0UIBJBd #/ ff %u\ 

} 

()UfBUI 

iqjßsne wjjqospng map jne pun 
iwwjujaqn uojpjunpaiun suia uj luujbjB 
-ojdjdnBH ujap snB uajBQ-jaßaiui 
sbp ‘ujuuBjßojd u;a j;m uaqjajqos 

uap 

-jdM mnuaq uoi^unj uapuajnjjne jap 
u; ajuaujnßj\/ s|B a;p ‘uaiqBjJBA ajp iqoju 
qoj|ß|oj panjBA sapaM sajqj ßunjapuB 
-J3A aug paM uajqj jnu uajajjuesBJdaj 
djs ujapuos ‘jsqias uaiqBjJBA ajp iqoju 
os|B pujs jajaiuBJBd u3|bwjoj aja pjim 
uaßBjpaqn jajaiuBJBd uauaqaßaßua 
jap )|ßqu| jap ajp uj ‘uaiqBUBA a|B>)0| 
S|e sajapuB sjqoju pujs sea »JaiewBJBd 
3 |bujjo|« ajuuBuaßos ui. aiuawnßjy 
ajp qojs uajaido^ uauojpjunj aja 
i(T‘q f ‘B‘£;)ounj 
i ( 9 ‘C)oq.nd 
J(*j,xai„)jqufjd 
!(y$) jBqo^nd 
:| 0 idsiag lunz ‘uawqaujaqn (ja; 
-!3M os pun }BO|j ‘jßqo ‘ju|) uadÄjuajBa 
jdßjqajiaq ujajeuiejed uoa iqßzuv 
aßiqaiiaq auja uauuo>| uauojpiunj 
-0 pj|M ppjqosaßqB puud uojpiunj 
ajp ub jap ‘jajaujBJBd uja s|b sajapuB 
sjqoju }Sj»ipaAA ‘opH* aiuBjsuo^ßujjjs 
9!a 6*( * ill®M ‘0||BH«)»u!Jd« UB qojs ais 
ujauujjg uaqaßjaqn ujiußjßojd uajsja 
ujajqi uj spajaq a;s uaqsq jajawBJBd 
aujqBUjaqn- pun aqBßjaqnjajaiuBJBd 
jnz aßa/\/\ ajaßjssgjjaAnz |3jA jajajq o 

soBqo 

apajiuiuBjßojd(-JOA) suj Bubi japo zjn>j 
jaqn uajqnj pun ajqojunz o uoa snsq 
-jn\/ uajB|npouj sap idazuo» azusß 
sap uaqoBuj apjaqauaqaN asaja 
jBqnBqosjaqn jqauj iqoju uaß|Oj 
ajp pu;s ‘}Bq uauojpjunj uajapuB a||B 
jnB uaßun^jjjMsnv qonB s}|Bqu| sajqj 
ßunjapuy auja bo qoj|jqejaß jqas jaqB 
uaiqBjJBA a|Bqo|ß pujs apoo||ano-0 waj 
-aqoiajßuejwn ;ag uapuaMUB (uapas 
JdjA japo jajp S|B jaßußj iqoju) uaujiuBjß 


-ojd uajazjn>| jaq aoiaiqojd auqo qoou 
jqojanajA qojs uassß| uaiqBjJBA a|eq 
-o|Q uapjaM jujBMaß jspuaßujjp jaqB 
gnuj uaßuBßua>|UBpa9 uasajp joa 

uaqoq 

qua qosnBisnBuapa uap jaqn uaßjos 
jaqojiiiuBS pu;s pun |Bqo|ß S|B uaiqBjJBA 
a||B qoBjuja jjM uajajujjap unfsj uaiq 
-BjjBA ua|Bqo|ß ‘uaqosjpjBJd os qoB ‘ajp 
qoop uaqsq JjM waiqojd Uja>| :uapo/v\ 
quB uapjaM jajajiuujBjßojd-ojSBg 
£djM go|g uauuo>| uaqos 
-nBjsne uapa uauojpjunj uaujazuja 
uap uaqosjMZ djMpuaßjj qoop qbj gnw 
‘uub>| uajaiugap uauoiwung uoqosjzjaf 
qoj uuaM :uaßejj jaqojs unu uapjaM a;s 
•(jajqajiaq snB^aM uajojnv-Jaijdujoo 
jaq }Sj sbp) »ojnB« »ja;sjßaj« snB uaqo 
-Biu pun ßunsjaMuv a;p uajdjjoußj a;s 
japo ‘(ua^ias jqas) snB ßunp|awja|qad 
auja japaMjua iqajag wasajp jaq q|Bq 
-sap uaqaß jajndwoo ajaujapi jo) Ja| 
-jdwoo-o uasjaAjp aja uana^s nz ßunß 
-npaA Jnz wwBjßojd-Q wauja qojizjBS 
-nz aßjuja qoou wn ‘jaisjßag puaßnuaß 
iqoju jbB jaqB uaz^jsaq 00089 J 9P 
jbBos pun 6089 ‘3099 ‘08Z 9!^ uaj 
-ossazojd »uaqoj|wwov|jaq« aja q>|J!M 
-snB swwBJßoJd sap jja^ßjpujMqos 
-aßsjjaqjv ajp |nB Ajijsod puaqoajdsjua 
qo;s sbm ‘uaqojajja nauqos jqas |qa| 
-aquaujqosB|A uaßjzuja uaujd qojnp os 
ajs uub>) jossazojd Jaa uaßainzqB sjos 
-sazojdoj>|j|A| sap jajsjßag jap wauga 
uj j>)ajjp aiqßjjBA auja ‘ub ja|jdwoo uap 
}SjaM »jajsjßaj« assßi'HJaqojads aja 
awwBjßojd ajanauqos pun ajaz 
-jn>| giuBp uaqnBpa sojjBjs z}B|djaqo 
-jadswwBjßojd qonB S|B |jaz iqoMos 
sßujpja||B ua}so>) ßunj|BMjaAua|q 
-BjJBA Jap uawsjUBqod|A| uaßjjoqaßnz 
aja pjjM uaqaßaßjaj^ japajM jsqojißpw 
-p|Bq qonB jasajp pun jzjnuaq uaiqBjJBA 
a}ßj}Quaq qoji^jjM jrq jnu zjB|djaqojads 
gsp ‘|ja}JOA uap uaqsq uaiqBjJBA-ojnv 
uaqajZJOA oj^Bjs japo ojnB unu ajs qo 
‘uapjaqos)ua ||Bj|azuj 3 wepaf u; a;s uas 
-snw ^Bqosuaßjg jasajp punjQ jnv 
»uajajAjasuo>|« nz uojpiunj jap 
jnj^nv uajsqogu wnz sjq uajBa aßjjqojM 
‘nzBp os|B qojs uaußja uaiqBjJBA-oj^Bjs 
snB qonB uqj jqjß pun jsq p jjsm uap 
x gßp ‘qoou jajndwoo jap »gja/w« x uoa 
jmjnv uajjaMZ wjag uoq^und-qns ajp 
japuaaq jajndwoQ Jap pun > ^ns paM 
uap |_+x=x iqajag jap )qgqja qoBUBa 
uaqaßaßsnB wjjqospijg wap jne qonB 
pun uasajMaßnz 0 pa/v\ jap x pjjM ()qns 
uoa inj^nv uajsja wjag »17 0« :pajs 
-SBd sbm ‘ajs uaneqos pun oijejs qojnp 
0|nB poM|assn|qog ssp ajs uazjasjg 


qßd|dßuB nau x pjjM jnjjny Luapaf 
jag »0 0 « jsi aqBßsnBWJjqospijg aja 

[ 

fT+x=x 

f(x^ p%=x UOA ^ 0 ^ )jq.ui;jd 
f^=x quf oq.n0 

) 

f()qns 

/* jna 

-jnBuiuiB jSoa;dJ9qun • 2 */ ‘ ()qns 
/* Jtu 

-jnBuiurea3ojdaaq.ufi‘T */ J ()Q n s 

) 

( )Uf BUl 

qßjaz 

uaiqeuBA-^l^s pun -o^ne uoa uaiieij 
-J 0 A 0LjOj|p0!MOSJ0iun sep sep ‘lajdsiaq 
-aiujBjßojd uja J0|q ßunqo||jn0pj0A Jnz 
*U0)|eqj0 uoq>jun-j jap uapuaag umaq 
qone os|B iqiaiq JJ 0 M JMI JeqßnpaA 
‘;i;ß uoqiu^aa 9 !P uap jnj ‘uoqvjunj jap 
^nj^nv uuapaf ;aq apuaiuuuBjßojci uunz 
sjq uuep ais puis ‘^ßaiaßue jaqojads 
uj! |buiu! 3 uaiqBUBA-oqB^s a;p uaßjaz 
uaj|Bqj 0 A sajapuB ujg quqoMaß uoqos 
jaqsjq Bf ais pujs uo^b^on esaia 

fzi^x quou 
fq auqo 

1b %u\ 
:uaq!0jqos qonB 
os|B ajs uauuovj uauoqjuqea ua^ßjazaß 
jap ubjs »o^nB« S|B ßqBUsqias ua|q 
-buba aip Ja ^a^aqjBjaA ‘uazjasnzujq 
aqBßuv aßqjaMjapuB auja>| ajg uua/v\ 
iz&x q.Bou oq.r\B 

fq JBqO OQ.HB 
fB qui oqnB 

qjajzj^zads »o^nB« 
sa^JOM|assn|qog sap aqBßuv ®!P 
qojnp uapjaM uaiqBUBA-oqBUJO^nB 
uapjaM iz^nuaqjaqaM jqoiu os|B 
uoq^unj uaqiasjap |nj^nv ua^sqo^u 
ui;aq uauuo>| pun uajopaA a;|Bqu| ajq; 
uaqaß qojnpaa !0j| japajM z^B|djaqo 
-|ads ua^ß^ouaq uap jqjß pun ajja/\A 
ajq! ja^nduioo jap iqosoi uoq^unj 
jap. uapuaag uijag qßaiaßuB jaqojads 
ujj uaiqBUBA ajp uapjaM 4 jS! ua^njaß 
-^nB uoq^unj apuajjajjaq ais ajp p|Bqos 
‘löjaq sbq *dAi-»oqBuio;nB« uinz uaiq^z 
‘uapjaM ^auqojazaq sjapua jqoju uoq 
-luj^aa jajqj jaq ajp ‘uaiqBUBA 0|bujjon 
»jajsjßaj« pun »ojnB« ‘»ojibis« qojiuj^u 
‘0 uj uassBi^jaqojads jajp W!ß sg 
uaqauqosaq jaq^u 
jajq pjim pun ajqojjy pun uJBqßjuja^ 
uoa »laqjg-o Jap snB |uiujb;s >|onjpsnv 
jasajQ qg;aq »uassB^jaqoiadg« 
ßunz^asjaqn uaqosjnap jap^^Ä 
uj sbm ‘sassBp-aßBJO^s \2}\seqh^m 

a ua)i|oeaq jajaiuiiuejßoid 
jap gnui sep - )q;a|quaija)s jaqo 
-iads wi Japo pji/w pqosoieß qosij 
-euioine eiqeuBA aip qo )Jeqo 
-jadsaß uasseix uauapajqos 
-J8A uj o jatun uapjaAA uajBQ 


3 ui ||uq9S||ese6 
-uassup|iai|»ieds 

















Z8 



laiirdwoi 




-Pljg 8(p jr)i jßjos puud pun ‘jnjjnBSUoq 
->|unj uap ppjMaq »0wunjS!8Mnz=!« 
uaqajsjaA nz a|qeueAjaßa;u| s|B 
i ‘ub jajndiuoo uap isiaM »i }ui« 

( 

/* uofq.3pini apuajnj 

-jns aqp ub c, #/ f(^)uanq.aj 

) 

()q.^unjsfawnz 

[ 

UT‘«P5S Ä )JW-id 

‘ ()q.3tunjsiaMnz=i 
<\ q.ui 

) 

()UfBUI 

:snB os o uj iqajs »g=j« ßunsjaMnz ajp 
jnj ßuruanniujoj aqojipuBjsuin aujg qsj 
uapujj nz jnjjnBSuojpiunj uijaq ajp ‘a|q 
-buba djp ub x uaiqBUBA Jap )|equ| uap 
ppiqos (x)ujnjaj uucy ajjajjaMja aja 
uoq>jun-j aip s||Bjuaqe japuaaq pun 
»jaqBisqonqujai» ujax« ja }ap|aw S||eq 
-ujapuv qB iibujs >|oaqo uojptung jap 
ßunjiaqjBag ajp iqouq pun sns »z pun b 
uaqosjMZ )ßan« jajndtuoo jap }qjß ||bj 
luasaip u| qiapusq uaqBjsqonqujaix 
uauja ujn qojs sa qo ‘ubius >paqo 
uoipiunj jap }jiu ynjd pun jn}B}SBj. jap 
uoa uaqoiaz uia )sai| uiuuBjßojd sbo 

( 

i („ j aqBq.sqonqupaiM uqa)i„ )jquqjd 

fuun^sa ^ 

f(„z pun b uatjospttz ) 

jq.upad ) (,z, = >x ,b 1 = <x) jf 

fx q.up 
(x)iiBUis _ ^oaqo 

/# ,z, pun ,b, uBqosfwz 

qo 'uajanud #/ i (p )iTBuis“){O 0 q 0 
/# uasap 

uaqopazjnpapsBj, #/ i ( )jBqoqa3=p 

•T W 

] 

0UfBUl 

:uapuaaq nz uoq 
->|unj jauia ßunjjaqjBag aip ‘uoipirujs 
-uox-asBD-qoiiMS japo -as|a-jj jauia 
uoa ßjßueqqB ‘lajdsjag mnz uin ‘ujnjaj 
jaqs qois jsiaMja qoi|zjnu }qoaj siv 

( 

/# iuappBjq.ua uubjj #/ fuunpau 
f(„moT U TQ -ISTH ‘oiiBHjjq.upjd 

) 

i ( )uo-[H.3iunj 

( 

f()uopq.3tunj 

} 

( )UfBUl 

:pjjM }so|aßsnB jauiuiBix ua^iaMgosaß 
uauassoiqosaß jap uoa osa|«os jqax 
->|ong a|p Bp ‘uajqojZjaA ßunpuaMuv 
aip jns jaqß uauuo>| ais •iuiuBjßoj c | 
apuajnjjnB sui jqawony aip wi/vvaq 
pun uoipiuny jauja ßunjqnjsnv ajp iap 
-uaaq juaujajBjg-ujn^aj 0|buijou sbq 
•(uawwBjßojdjajun snB ßunjds 
->pny) NdfU3tl opuBuiuiox-oisBg map 
)iuj qos|)uapi )si siqajag-ujnjaj sap uauj 


-joy uapjaq jap aujg :uauq| ja}un jajaiuj 
-uiBjßojd-OjSBg ajp ub sibmuih ujg 
uapug ßunpuaMjaA }uauiajB;s 
-ujnjaj sbp uub>| iaqea qßBj;uja aiqBUBA 
ajp uj pa/\A uaujapuaßj| uoi^unpaiun 
aip £|Bp ‘injjnBsuoi^unj uapaMz uijaq 
ubui ;ajjEMja nzsp zjBsuaßao uj| 
IBOSBd u| uajnpazojd uap uagBtu 
-jass|Maß ||Bd jasajp jqojjdsjua jjWBa 
i4|UiBp qonß Ujqo/v\ qapeMja jqoju pjjM 
paMaqßßxong uja qiamuijaqn uoj^unj 
ajp ub uajBC] jnu uapjdM ||ej uajsja ui| 
:(j34auiBJBd)uoj}>|un|=a|qB!JBA - 
:(ja;auiBJBd)uoj}>|un| - 
:ua|nj|nBsuoq>jun-| 
uoa uapv jaMZ o uj sa iqjß iiajdjzujJd 

snB uouxunj 

a}aupjoaßjaqn ajp uj uaua^njaß^nB 
jap snB uapa/v\ uoa aiuqBUjaqn Jop 
ljuj sa iqajs sjapuv qojs joa söjuiaiq 
-ojd unu }qaß aqeßjaqnuaiBQ aja 

ujaui 

-ujB|>|>| 00 |g jap qißqjauuj jaqsp )ß|Ojja 
uojijuj^aa ajp laiqBjJBA aieqoi aujaju; 
auja jsj jaiqaaz qjajUjiap ujatuiußix 


J(OA‘C£:)sJTamosj(onjp 

^OA'.JtOaJTamosJionap 

) 

()UIBU1 

:uazjas nz 

ßunsjdMuapunqjdA Jap ujauiuiBix ajp 
uj jqBqaß ajM pujs uauojiiujjapuaiqBijBA 
»u0|buijou« uaßjjqn aja uassnuj uaq 
-ais ujauJUJBix Jap qiaqjagnB uauojjju 
-iqaa uapuaj3jpuodsajjo>| ujajauiBJBd 
ua|Bujjo| uap nz djp gep ‘ujjßp )ßa;i 
punjQ jaa z4Sj pajjßajuj sapoouiuiBjß 
-ojd sap ujauiuiBix uaujdMqosaß 
ajp u; ‘qojiqn jaqsjq a;M ‘)qoju 
(o‘q‘B)jBA0a>|onjp u; uojjjuuapuaiq 
-BjJBA ajp gsp ‘uaiiB^aß^nB uauqi qs| 
qzjas (o) 3S1Vd Japo U-) 3HÜ1 
}ne v uoabp ßjßuBqqB pun jqoja|ßjaA e 
Ijui g aiqBjJBA ajp e=g=v om ‘uapjaM 
)iasqoaMJ3A ojSBg uj s^sa^jßcn uap puj 
iqoju jjBp ßunsjaMnzpaM Jap uuJQd as 
-ajO »f t7=l=a=P=o=q=B« :uaqoßui 
uaiqBjJBA ua|ajA ßjqaj|aq qiuj qojs 
lt)B| sbo nz ez pa/\/\ uap ßjijazqoja|ß Ä 
pun x uaiqBjJBA uap isjaM iqajag jasaja 



uayjaMqosaß jap qißqjagnB qiBqsap 
uapjaM pun ja;auiBJBd a|BUiJO| pujs |oq 
-japajM pun uaqojaz uaiqBjJBA a(0 sns 
ujjjqospijg map ^ns uaqoujajs OZ °S|B 
iqiß (OZ‘,*.)aü 9 N°s>|onjp ua>|onjp nz 
|Bui-»|oqjapajM« »uaqojaz« uaqojaz sbp 
‘ nz aqBß|ny ajp J||Bi »(|oqjapajM‘uaqo 
-iaz)aiia|qos>|onjp« uoi^unj jaa 

{ 

• (|U\, )JBqoq.nd 
f (u0qoi0z)tiBi{oq.nd 
(-hhi0iq0BZ fioqj0p0jw 
>j0iq0BZ i o=JaiqaBz) joj 
/* aiquTJBA 
0IBXOI 

0-[buijou #/ fj0*[q0BZ q.uj 


fTOUJ 0 D 0 TM qui 

/# J0q.0UIBJBJ 

0XBUJJOJ */ fU0qoj0Z JBqo 
(loqj0p0jA f U0qoj0z)0jj0xqos^onjp 

■ (02' i-i )3JT8iqos3tonjp 


quBssajajuj jqoaj »£z=A=x« a|jaz ajp 
uiuiBjßojd ujasaip ub )si iaquaqaM 

f 

!(o‘q‘s‘„p% p% p%Jj%upjd 

) 

fo^q^B q.up 
(o' q ‘ b ) jba£ 03tonjp 

( 

i (Z^^X)JBAf03lOnjp 

fx-=z 
i-H-R 
fC2=Z=x 
‘z‘Z‘x quq 

) 

()UTBUI 

:uaqaßjaqn ujaj 
-auJBJBd uoa iqsz ajapuB aßjqajiaq auja 
japo jajp ‘jaMZ qojs uassB| osuaqg 
uasjaMnznz x ua|BXO| uiap \.\.ip 
aiuBjsuox ajp ‘ub jajndujoo uap }Sj3M 
»(UZ^Ja^arup« qqjßjaqn (x)a>pnjp 
uj x a|B>| 0 | sbp ub pun (jjsqias j »qoju) 







/# uaJöftiBi^ep pun #/ 

fZ JBqO 

/# iu©q©9uB z J 0 Q. 0 UIBJBJ J©pH #/ 

(z)0qB3sn0U0qop ©z 

( 

- (x‘«PS» spoo-IIOSVUV )jq.UTJd 
f(£9)aqB3snBU©qof©z=x 
fx JBqo 

) 

()UfBUI 

/* laeq.aunBaBd auqo #/ 

i QaqBSsneuaqofaz JBqo 

:uaßej;nzuja jqeqaß a|M jajaiuejed 
ajp pujs uoipiury jap uoqjuqaa uaqo 
-üiuaßja jap ;aq jsjg ujawuje|>j uap 
-um udjaai }jiu jauiuij jaqep }apua a;s 
uapjaM uaqaßaßue »(e‘},‘x)aqBßu!a 
-uaqojaz jßqo« japo »(x)aqeßujauaqo 
-jaz jßqo« a|M jajauiBJBd aiewjoj lapeu 
-iavj uapnp uoqejei^apsiJBMJOA jap u| 

[ 

i (() jBqoq.©3)ujnq.©j 

) 

/# uofVEUfjapsuoffjpmi aqoff 
-qossfBX #/()aqB3ufauaqofaz JBqo 

[ 

i (uaqofazuaqsBq 

‘„ 0 % Ufa jbm uaqofaz sbcl, )jqufad 
{QaqsSuf auaqof az=uaqofazuaq.SBq. 
i( u :ufa uaqofaz 
Ufa afs uaqa3 aq.q.fg Ä )jqufad 
fuaqofazuaqsBf JBqo 

} 

( )Uf BUI 

/# uoff.BJBmapsf.JSft 
-joa #/ •()aqa3ufauaqofaz JBqo 

:uaz)asjaqn ßqqojj ajs uub^ 
pun uoipiung jap dÄj. uap ubjbp fuua^ja 
jaüduJOQ jaa nauq\? uoqjuqapuaiq 
-buba Jsuja ajp ‘suauieusuojpjund sap 
uoqiuqaa aujd swwejßojd sajqi ßuejuv 
uap ub qoejuja uazjas ajs :ua|Bqo|ß 
jnzfsjanz uauuajj uoqBJB|>|apsiJB/vuoA 
d|B>{0| auia pun a|eqo|ß auta u; qojs fgei 
asaia »uoqBjB|>)apsiJ 5 MJOA« a;uueu 
-aßos ajp )si }ia>jq3!|ßo|A| ajjaMZ ajQ - 
»ua^uspaq« ßunpiaiu 
-jaiqaj uaqosjiueq jauia pw JdijduJOQ 
-0 jqi qojs apjn/w 'waisaß ()ujew 
jajuiq ()aqeßujauaqojaz uojpjung 
a;p ajs uaqey sne uujqospijg map 
jne sa )q;ß puud pun ‘uaqojaz sep qojs 
}|oq »()aqBßuaqo!az=uaqo!azuaiSB}« 
uaqaßnzwa uaqojaz u;a 
‘snB ßunjapjoyny suja jainduuoQ Jap 
pprnp QujBiu uojpjunpdney Jap u| qeq 
uaf|Bqja (jjeqojaß uoa 3js uap ‘>|onjnz 
fjaM uap jnu ipne jaqep )qjß a;s 
■ßt||OA uoipjung-Ojeqoiaß jap jqoja|ß 
»(jaqeßuiauaqoiaz« uoipjun-j aiQ 

( 

i (u0qop0ZU0q.SBq 

<„0% Uf© JBM U0qop©2 SBa„)j^upjd 
i ()0qB3uT0U0qop0Z=U0ii0f0ZU0q.sBq. 

f(„ :irp© u©qof©z 
up© ©ps u©q©3 ©qqpg^)jqupjd 
fu©qop©zu©qsBq JBqo 

) 


()UfBUI 

( 

i (()JBqop©3)uanq ©j 

) 

()aqBSufauaqofaz JBqo 

qeq uoipjunj aip dÄi uaqo|8M ‘fjaqo 
-isdsaß >jjaujJdA uauja ujafUj uuep jeq 
jaijduioo jaa uapjaM uajmaßjne |bai 
afsja sep ajs map ub ‘po uap joa om 
- puaßj; ßuqsiiujiuBjßojd uu; ‘pujs jaßajui 
tqoju ajp ‘uauoq^und a||e uanajs ajs - 
:uaso| uaßdM 

|dMz *ne qojs ujaiqojd sasaia 
uub>( uaßuuq ßuepiujg 
u; aujqeuuv uaßuaqjOA jaujas qiu fqoju 
asajp ja H3M ‘jaiqaj uau;a JdijduJOQ jap 
japiauj »a|qnop« pun »feo^« ‘»jeqo« am 
uadÄx uajapue uap |ag aujaiqojd uaj 
-afjdM au|a>| sa fq(ß jaßajui qoiiqoesiej 
fjdMSUoq)jund Jap fS| ub »fui« ajqonejq 
-aß uajsßqneq tue sep qasqeujofne 
qieqsap fujujiu pun ‘)eq uopund asaip 
dAj_ uaqoiaM 'uauua>)ja fqaju ja uue>t 
‘uoiwund uafjajuqap uauqi uoa jau|d 
jrnjnv uap (Jureiu uoa suazjasjaqn 
sap puajq?M jandujoo jap ^oapfug 

uajdjjB|V|dp 

|BUJ>|JdUJuadAi mauia quj qon^onjpsne 
uauoipiund a;p ‘uapjaM fqoeujaß a||Bd 
ajp jn| jaqe gnui ßun>|uejqosujg au;g 
qsj ßjqajiaq ßqiOA uoq)jund-ujBiu jap 
aßen jnz Aqeiaj uauou^unj uoa uoqisod 
aip gep ‘}||3}saß}sai uwjoa uaqeq jim 
qatqoizjaA uajjaM uoa aqeß 
->|ony ajp ^ne }sq|as uoa ajs gep 'uaj 
-aiuJiuBjßojd os uassap pejs uoi^uny 
a;p pun uaqaßue »pioa« u;a>i a;s uuaM 
‘ajs uaidizjd }>)aq 3 uaqiasuaa qjaq 
-uauJd|duJ! uja|jdiuoo ua||e ui jqoju qone 
pun fqoepaß jajaiuuLuejßojd aiqiuad jrq 
jaqa jaqe }si »pioa« uoa aqeßuv aia 

[ 

i(V 9 )ounj 

} 

()UPBU1 

{ 

i (x)JBqoqnd 

) 

ix quf 

(x)ounj pf oa 

qeq aqeß>|onj}jaM »ajaa|« auta os|B ‘qa; 
-qujjaqn jja/\A uauja^ uou^uny ajp gep 
‘ue jaijduioo map fß;az p;oa »jaji« pun 
»jaa|« ßunzfasjaqg s|B uiajapue jajun 
uaqajs jjop - papgiqaß qonqjapoM 
-qosi.|ßug lui nauqos »p|OA« qoou sa 
fq;ß uauoiquqaa uaqojiqo uap uaqaN 
ua^njfne sne üafuiujejß 
-0Jd uajapue uiauja uoa jd Jnj jja/\A jap 
qojs »öbi (O)Jom jd‘ „ j% „ )quud m 

{ 

■ (f59265TVT'Oujnqaj 

) 

()q.jaA“fd fBOfj 

:sne qoiiuqe 

japo os tqajs qqjßjaqo ujujejßojd apuaj 
-njjne sep ub jja/\/\(-eujujo>|ga!id)qBoq 
uauja ajp ‘uoj^unj aujg ua||OM uajajj 
-Bj^jap uoq>)und-jaßaju| auja ajs fjep ‘ue 


jaijduioo jap fujuuju 'uaqoeuj aqeßuv 
aßqjejap auia>) ais uuaM jauiiui 

( 

i (x)jBqoqnd 

) 

!x JBqo 
(x)uoffJiunj quf 

:uaqiajqos ßipiaMqoia|ß ais uauup>| 

[ 

i (x)JBqoqnd 

) 

fx JBqo 
(x)uofqjpinj 

qjdjjB|>|dp uaiqejJBA 
ajp ajM qojiuqe uauoj^unj a;p uap 
-ja/w nzeQ uaqaßjaqn afuaiunßjBjaaq 
japo axia/wBUJUJO>)ga!id ‘uaqojaz qone 
uauuo>j ajs os fßujpaqun fqo;u jaqe 
fSj mag ujajaji afuaujnßjv-JBßsfui uau 
-oqijund 3||e gep 'uaßuBßaßsne uoabp 
sjajs pudßj3/v\qos||!fs jjM pujs Jdqsjg 
■pjjM uaqajjqos 
-3ß (qojdjag uauajoqjaA natquaAa 
jaqep pun) uauaqasaßJOA jrqep fqo;u 
uauja uj )ja/\A u;a uuaM ‘a;uuQ>j uajjBMja 
sneqojnp ubuj ajM ‘ue uapeqog uaj 
-eqjajuj^apun aqoiaMpuaßj; jqoju jaqe 
uuep jaiqojj jg uajo|jaA fja/v\ Jap iqaß 
, ((«x /< )ffUjjd=A ifBfs („xjpujjd |ajds 
-jag uinz) japuqjOA aiqejjBASßunsjaMnz 
au;a>j uoj^ung ajp jaqe bq uaqaßaß 
->|O0Jnz (x)ujnfaj siafijuj pjjM fja/v\ ujg - 
uujg uauja>) jqjßja pun ßjfioßun uuep fs; 
jjaAA auasajMdßnz (uaqojazsfjaqqojdio 
ujoa s>jui|) aiqejjeA 3jp ue jaa ßj||QA 
fiqa) ujnjaj japo aiqejjeA auqo ujnjaj 
saqoejuja uja jqajs jxajujuuejßojd ui| - 
:uauuo>j uajajqne ßunjajujujejßojd Jdp 
laq aip ‘anepapuos ismz qoou jqiß sg 

{ 

i (x)ujnq©j 

) 

/* J0q©UIBJBcJ J0IBUIJOJ */ fx 

(X)0*[B0 

( 

P3S=T<,)JW-id 
/* 2/f*T+T=T */ • (2/f*T+T)°IB0=f 

/» 2*T=(* */ J(2»T)oi«o=f 

/* £=T */ J(^)°I B0 =T 

f %vci 

} 

()UfBUl 

:ua||n^ jaqojads uap uaqo 
-ajg japo uaßajg |ne ua||OM a;s ‘uuap 
jas sa - ßjsspijjaqo ßj||OA qoj|jnjeu 
aujinoy ajßjazaß ajp jsj ßefuejajiuujejß 
-OJd uj| »:(>|onjpsnBjo|BO=a|qB!JBA« 
qojnp ‘uapjaM fzfasja ujujejßojy 
uauiai^j uiauja qui asjdM 3sa;p jne 
uue>j »:>|onjpsnB=a|qB!JBA« ßunsjaMnz 
-0 a|BUUou aja UJafaujBJBd uoa aqeß 
->poy jap pun aujqeujaqp J3p uaqos 
-jMZ qaqjeuaujujBsnz 3jp uin uid||B 
joa |qoM qojs sa fiapueq sua)Sjd|^ 
qqjß>|onjnz g pa/\A ua}ue}suo>| uap 
ajp ‘ßunsjdMuv-ujn)aj ajp |qa)ag uaßjz 
-uja s|B nwqjua »O^unjsiaMnz« uauuQ>) 
uajnjdjaqn ujnjaj uoa asjOMsqaqJV 
a;p ajs JdJap pueque ‘aqeßsneiujjqos 







(ßH/Bliniox u|}jb|/\|) 

jsiepisn 0 jp uj ujeiuiunu 
-U 8 || 0 Z uoa uaßnjnzum tunz »au||#« 
japo su3J3!i!diuoo sap puajqBM ßunjsii 
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-prnjaqn jj a/\/\ uajap uaiqBUBA u3|bujjou 
jaq puajqBM uappsaq jßujpaqun ajg 
uassnm sawa qooa uaqaßjaqn uau 
- 0 !P)ung ub agojg jajqj uoa ß|ßuBqqBun 
japia;ua}Ba qojs uassB| py asaip jny 
uapjaM jqoBjqaß uuiqospiig uap jnB 
»(piaj)ua>pnjpsnB« uoqviunj jap uoa 
aip ‘uapaM pm ajuamaig a||B tqa|SJ3A 
apaiqog-jojaia uapB|aß iqBZJesaippm 
pjjM xapwxBiu aiqBUBA a!P ‘sjuamaig 
03 peqjua [oslPiai ABJjejaßajui sbo 

«!®m p uä| 

gojß jep|9|ua|DG 

\Z ßujtsn eijöis) sne 
ipjliqojsjaqn jqas wwejßojd-Q weujo 
uj jqejs ‘jjgquB ipjipuBjswn jBqjqojnj 
\z\e\ qojs se/\A uj 0 iuwB|>i uaßj^oa 
uajaai jjuu jajawejed uoibujjoj jap uo\\ 
-jUjjöQ jap jaq ‘uaqaßaßuB ujauuwB|>| 
auqo japajM aoieupiad Jop \s\ jdovjsuojj. 
-vjund uj| ‘säbjjv sap agojQ a;p jaqn 
uoübujjojui auja asjaMjanoAuujs ua||Bd 
uajsjaw uap u; pun ‘uj0wwb|>| aß;>{oa 
apuaß|Oji|OBU auqo sapiaj sap uaiuBN 
uap uojj>|und jap uaqaßjaqn a;s jqoju 
qoj|jniBN 6 uaqjajqos uojpjunj auaßja 
auja BM;a egojßpiaj apaf jnj ublu e\\\os 
ua^ugjqosuja japaiM uauojpjund ub 
aqBßjaqn Jep jaq sbp jjM uassnuu ‘jBq 
uaqjaiq riz jubjsuo>i säbjjv uoa agojQ 
ai.p gsp ‘ua;na;s;sa^ jaqjOA jim bo 

uas 

-sb| uaqaßjaqn uauojpjunj ub a^uaiu 
-nßj\/ S|B japiajuajBO qojs ajM l uo\\ 
-biujo|U| a;p jnu jjm uaßüouaq \z\9f 
■uöi|Bjsaß nz jaqojuqoisjaqn Sjuqaßjg 
sbp wn ‘snB qnqosjOAuaijaz uauja 
pun jnBppnjuaßBM uauja (\) jB^o^nd 
;qjß ‘isj ia^aqjBaßqB iBiuuja a^aiqos 
ajauuj aip uuaM os|B ‘uanaz jajA 
s|jaMaf tjOBN ua^onjpsnB f pun j uoa uq\ 
-ja/v\ uap jjuu uaiuiuBsnz a^uaujaiapiaj 
a||B ajp ‘uajjaiqos a;ia;qoBqosjaA japuB 
-ujauj ja/wz tun japajM qojs ;iapuBq sg 
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( 

f([T]ABJJB‘ <l u\pj( Ä )jq.ufJd (T+T=T fxepuf>f ‘o=T) aoj 

/* aempzuajpamos JeiBJfoi »/ ff ^uf 

) 

/* aggaSpiaj jrj ae^auiBJBj jsiBuiaoi #/ fxspup q.up 

/»ujaunueiM aaasi ‘aaq.auiBJ;Bd JeiBuiaod #/ f[]AeaaB q.ux 

/* |ujsuiuibxm auqo „pisj„ */ (xapup‘A bjjb) uajjonjpsnB 

( 

/# jujauraiBDi auqo aqBSuv #/ f (xapupxBUi‘pi;aj)uaJionjpsnB 
iT-S^2=[T]Piaj (T+T=T *03>I ?0=T) JOJ 
/# uaqaSuB jauiuinuxapui aqsqogn */ f02=xapupxBUi 

/* Jaimzuajpamos sp? */ ip 5-up 

/# xapup uapBuipxBui uap jrj apqBp jba */ fxapupxaui qup 

/* sA bjjv sap uopqpupjaa apBuiJON #/ *[03]PT3J pup 

) 

()UfBUl 


f ( 4 u\, )jBqoQ.nd 

*([n[T]x'f'T 

‘,u\pjs p% p % u ) jqupjd 
(T+f=f ^>f *0-f) JOJ ) 

(T+T=T ‘C>T f-0=T) Joj 
/* Jamvzuajpapqos #/ ff'p qup 

n 

te'evs} 

‘ (T‘3'C ( yj 
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J 

( )Uf BUJ 

:snB os SBpjnBqos 
tuujBjßojd uaxa|diuo>i tuauia u| 

Ufc'fVfi) ‘[T‘z‘Cy] 

‘b'C'Z'Z] }=[V][C]PI3J W opqaqs 

:jajja!Z!|diuo>| SBMja asiaMqiajqog 
a;p qojs pap|Bpsaß sßujpjaiiv qqnepa 
ujapiaj uaiBuojSuaujjpjqauj jaq qonß 
}S| ayaMpjBpuBig jap aqBßuy aia 

( 

J([T]PI®J‘T‘x- u \PJ! PÜjJWd 
(T+T=T -8>T ^0=T) -ioj 

( [9S2'8ZT‘V9‘3C‘9T‘8‘y‘3) 
=[]ppaj qup opqBqs 


(T+T=T J8>T ?0=T) JOJ 
fp qup 

i(9ö2'8ZI‘^‘2{:‘9T'8 < V‘Z) 

= [8]PISJ ^ U T 3TWS 

) 

( )upBUi 
:os ajg 

uajaiujujBjßojd uajja/v\ ruj sAbjjv ua|BU 
-OjsuauJipujd uoa ßunziasaqjOA oujg 
qoBjuja A|)B|aj psj 
ßunson ajQ iuaujqau apa/v\ uap|B aip jnj 
-pnv uapnauja ujjaq japndujog jap uubp 
lios jaqoM ‘uapjaM pqosoiaß iBUisapaf 
uou>|und Jap ßunpjaqjBag qoBU a|S bo 
qßaiaßuB nau jnjpesuoiwund ujapaf 
|aq Bf uapjaAA uaiqBUBA-ouBuiojny 
sojiBps uap |aq jnu asjaMjaqosißoi 
sbp }S| jappEpsao uaqoBLupai pqoju Bp 
japiad-opnB gsp ‘ßun^uejqosuo jappjiu 
- qoiißouj ujapia^uapsa uap jaq qons }S| 
sbq uajaisjiBinu! nzpaMsßuejuv ujauja 
)|uj uoj)jugac Jap ieq uaiqeueA ‘uau 
-ua>| ßaM uau|a jaqjOA uapujai jim 
ßunjaj|jdmoo jap qonjqqy 
tunz pun ßunpiaujjaiqad jau|a nz jaujujj 
pjqrg sg pqoiu q japun os|B pjaiuoip>|un| 

{ 

‘[B]q qup 
(5 =b qup 


()upBUI 

:a|g jnp aujaß 
sbp pqoBiu jg uassB|jaqn jaijdmoo 
tuap qonB piaqjy aßiuujsidujnps asaip 
ajg uauuo>| ‘uap|Bqja nz ujauiuJB|>| uaß 
-ppa uap uj pja/\/\ uap snBJBp ujn ‘uaqBq 
uaqaßaßuB a;g apa/w a|ajA3jM uaiqBz 
-nzqoBU ‘uaqBq psrrp au|a>| ajg uua/v\ 

sns xapu| 

uapuappajpaq uuap pm puama|ap|ag 
sbp pun jaiqBzuapaiqog uap pq|ß a|g 
pjaiuoqviunp sbp gsp ‘psjaMaq apaiqos 
-asaisny apuaß|opqoBU a|Q uja 993 
pun 831. >9 ‘30 ‘91 ‘8 > ‘3 uaiqsz 
aip qoßu aqjay Jsp sapiapABJjy sap 
apuamaig aip ui pzpas mmBjßojd sbo 

( 

• ([llPIsj'T ‘ /, u \P5f PüäJjpupjd 


()UfBUI 

UJUJBjß 

-ojd sbq ujapiapuaiBQ uoa ßunpeM 
-J3A aqosimBuAp au|a>| pqnBpa q uuap 
‘uaqaps apuBjsuox auja jamm; gnm pjoa 
uauqoiazaq uaiqBUBA J3U|a pm pqoju 
‘ps| uaqaßaßuB uoipuqapuaiqBUBA Jap 
ui. ajp ‘agojßpiag aip ajg uapnp 0 u| 

■ ([0>] [003 [03] [0T]Q-IJ 5-Boij 
i[T][^][y]s -isqo 
:uaqoBm uauoisuamia !^A^z 
S|B jqam pm sbp ajg uauup>| osnsuag 

snB ujjiqos 

-Plig map pnB JBqpqois qoppnap asaip 
sa pqjß puagaiiqosuy f pun j uoa ajjaM 
jap ammng ajp spa/viaf uapaiqosjnßq 
japapqoBqosaß japueujaui jajaMZ appH 
pm piajuapBa-jaßapui saiBuoisuamip 
-(g‘ 3 ) uja uj pqiajqos mmBjßojd sbq 









-ueiqBUBA ajp Jnj jaqojadg S|B ßunp 
-U9MJ9A tapuü »jaßjaz« Uja jn}B}SBl 
jap uoa |oquuAg u;a jepo uaqejsqong 
uauja J9jq )S9j| »uaqojaz« aiqejJBA eia 
•(t? Bugen aqajs) uaq 
-aqosaß »j 9 mo|« suauJBU sajmjnesuoq 
-^jung sauja 91HH Kuj ||os sbq tun U9U 
-!9|>) U9UI0 u; quiwoq aqejsqonqgojQ 
u{9 uuaM 'sä napuBM pun UB jnjBJSBl 

jap uoa uaqojaz uja iwuuju sg uuwejß 
-ojd ujsuja ub SBp 9js uaqag uajaiind 
-jUBUi jnjjnesuojpjung ujj U9|qBUBA ajp 
pjajjp jaqß }zj 9 f ajg uauuo'H apoqja|A| 
-jaßjaz Jop MN ujuuBjßoJd uapuaj 
-njjne iu( uaiqBUBA ajp jne uaßun^ji.M 
-snv !d|jau! 9 >) jeq uaiqejjeA ua|e>jO| jap 
s)jq/\a sap ßunjapuBjaA aujg uapjaM 
)ßa|aßuB uaiqBUBA a|ß>| 0 | anau iuap 
puBquB ‘uaqaßjaqn uaiqejjeA uoa paM 
jap jnu pj|M sg :qoj|jaqojs qojs ujauuua 
a;S uauoipjunj snB uajuaiunßjv uoa 
auiqBujaqn Jap jaq lajdsjag uinz jaßjaz 
a;p qojs uassei uapuaMue jeqqonejg 
znaj>)|addoa aiuue^aq 
SBp S|B sajapuB sjqoju isi sea aiqejJBA 
ajp u; ‘jßjaz jaßjaz Jap aip jne ‘assajpv 
jap }|equ| uap jßBjpaqn »jaßjaz 
-uaqoiaz, = aiqBUBA aqaMZ« qqeqaß 
ajM - »jaßjazuaqojaz« qoßu aiqejJBA 
aip jne jaßjaz uauja ißaj apz apuaßioj 
aip ‘» #«uaqoiaz wap M w »aiqBUBAuaqo 
-iaz« iqaisjaA ßunsiaMnz ajsja aia 

1 

/# ua^otupsnB aiqBfJBA anau #/ 

i (aiqBfJBA~aqf8Mz)jBqoqnd 
/# uafoq qiBqufuassajpv #/ 

( ja3fazuaqofaz#=aiqBf.iBA“aq.fartZ 
/* aiqBTJBA jub jafufod #/ 
fafqefJBAuaqofaz$=ja3fazuaqofaz 
/# uapBi # ffui aiqBf jba #/ 

{, # , =afqBfJBAuaqofaz 
/# aiqBf jba-JB qo affanz #/ 

f aiqBf JBA-aq.fartz JBqo 
/* aiqBfjBAJaqufod #/ 

! jaSfazuaqofaz# JBqo 
/# afqBf jba aiBuuou »/ 
faiqBiJBAuaqofaz JBqo 

) 

( )Uf BUI 


:uaqaßjOA os 
ja||duJOQ-o iuap qojs agaj| Iqaizaquja 

apoqjaujjaßiaz aip aip ‘ßunsjaMnzpaAA 
aqoiipuetsujn jqoaj auig »#« uaqo 
-|az SBp jaß|az,qoiaißgaiqBUBA jjw ais 
uanBqja uuep ‘i.aiqejjeA'sqojaißjaßjaz 
pun js| faiqBUBA os|B uuaAA 

qßjaz 

aiqB|jBAja)U|Od a;p aip jne ‘assajpv 
jap u| ;ja/v\ uap pajaji jg sjojejado-'S 
sap ßunjqa>|uin aip }Sj jojejado-. Jaa 
jqaiu qoou qojigajiqos iwujo>) sa jaqß 
‘|a|Anz||B iqoju qooN :uaqaßaßnz <j,uau 
-uav) uaiqBUBA Jap assajpv aip wef J|m 
gep ‘uoabp j|M uajaqqojd sbm qooa 
uaqasuB apaAA aA|} 
-Bßau s|B ‘pu|s 19LZZ+ s|B jaggjß aip 
‘uassajpv jaindiuoQ aqoußiu Bp ‘ßqgu 
)S| sa|Q (»paußjsun«) ub uaqoiazjoA 
auqo ßunqiajqos Jd|BUJ|zap u; >pnjp 
-snv uaqosqauuqijje uauja ;q|ß uoq>|un j 
-qujjd jap u| »n%« uoqdoiBiujcy aia 
uajqepa qojpgiM qone assajpv 3 !P 3 !S 
0 Bp ‘jnjsp }ßjos aiiaz-puud aia aiqBU 
-BAjaßjaz aip U| uaiqBUBA Jap assajps 
-jaqoiads aip ins jaßjaz uauja jpg| a\\az 
apuaßioynBJBp aia nz ‘znaj^iaddoa 
SBp ‘loqiuÄs ui.a uaiqBUBA jap miuBjß 
- 0 Jd SBp jSjaM sajsqogu siv aiqBUBA 
-JBqo au|a |nB jaßjaz S|B »jaßjaz 
-uaqoiaz« ‘paiuqap a|qBUBA-Jßqo a|Biu 
•jou auia s|b pjim »aiqBUBAuaqoiaz« 

( 

/# U03ionjpsnB jaqupod */ 
i (jaSpazuaqopaz^^n^)jqupjd 
/* aiqBpjBA jhb JaquTOd */ 

f aiqBpjBAuaqopaz^ 
=ja9pazuaqopaz 
uapBi # qpui aiqBf jba #/ 

•» #i=aiqßfJBAuaqofaz 
/* aiqBfJBAJaqufoj */ 
i jaSfazuaqofaz^ JBqo 
/* aiqBf jba aiBuuou */ 
faiqBfJBAuaqofaz JBqo 

} 

( )Uf BUI 

:os ijaiuoi^unf sea qe 
uaiqBUBAjaßjaz jau;a u; uaiqeueA Jau;a 
assajpv a;p pa^aii loqaiAg-'j sea 
•J9M8M os pun »}BO|j« dÄi uap aiqBUBA 

uo|)e|ndjueuiueie(] eneddOQ e ßuqsn 


-eiuiuo>| 0 a!id aujd jne jaßjaz u ! 0 ‘»Jeqo« 
dAi uap os|B ieq uaqefsqong uauia 
ine jaßjaz u !3 qßjaz Ja ajp jne ‘uaiqejjeA 
jap dAjuajea tuap jß|Of dApaßjaz Jaa 
»'S« uaqojaz-pun aqosjuuBuqne^j sep 
osuaqa ‘anoy ajapuosaq auja uauoq 
-Bjadojaßjaz uap jaq najds ujajg jaa 
qosjjuapj uojijuqapuaiqBjJBA ua|Biu 
-jou jap jjiu ujaig uai||d)saßuejOA uap 
jne Sjq jnu os|e ;s; ßunjajSjieqjui aia 
fjaBfazBmuioJtssafiJ* fBOfj 
fjaBfazuaqofaz» JBqo 
i ja3fazja3aquf # q.uf 

:uoqjuqaa 

jap ;jv uajapuosaq jauja uapnpaq 
pun uapJ^A^ uasajMaßnz ßiqanaq ;qo;u 
ua|qejJBAjaßa;u| uaieujjou uap uauuo>| 
‘uaiios uajejßunj jaßjaz sie aiP ‘ua|q 
-BjjBA aia ujaßjaz uoa qonejqao uas 
-oisßuniuiuaq nz||e uap uaßaß jaijdiuoo 
-0 aujapouj uajajq ßumaqojs aujg 
qojiqaqja qo ßunjajiutuejßojd ajp 
ajs uaqoe^ujajaA ‘uaqaßiun jjwep tues 
qnqaq jaqe a;s uuaAA ujaßjaz uap )jiu 
ßqqojSJOA os|B ajs uajag ua>jonjp ajsei 
-lasay ajp ajg sjq asjaMsßunqajzaq 
- uaqasjapajMjaiuoijN jne uauiuiejß 
- 0 Jd pun uajea uafiaqojadsaß ujajuj 
ua||e )jiu qojs japajqosqejaA LuajsAg 
sep pun ‘ub assajpv aqos|Bi auja 
aiqejJBA aqoios aujd )q;ß nauqog qqoju 
jaqe ujaßjaz MUJ uaqaqjv sep }Sj qo;i 
-jqB^aßun zubq qzjnjsjajun qoj|ßnzjOA 
pjjM idazuo^jjaßjaz sep uuap ‘aqguuau 
-jqosBN ajqj jajq ißjaz o aqoejdg aia 

$B®$ INIdd 
:aqBj 0 iuujB|>j jap ojseg-japjauqog 
tuj pun (x)yaav 3 !seg-2099 
-!jb»v uj ‘(x)yidyvA sep fSj ig ijbjv 
sap jajajdjajui-ojseg uuap pun ojsegN 
u| uaqaßsnB uaiqejjBA Jauja assajpv 
ajp ajp ‘uauouHung sa fqjß uapjai 
-Bja-Ojseg uauapajqosjaA uj jeßog 

uejaji 

-ndjueuu ßjqanaq ^ajjpu; tiequjuaiqejjBA 
uap ajg uauug>) fjequaqo assajpv 
aip jaßjaz u;a unu uauqi ley qs;aM 
-u;q uaiqejjeA uajapue jau;a assajpe 
-jaqojadg ajp |ne ajp ‘aiqejJBA auja 
s|B sajapue sjqoju unu ^s; jaßjaz u ;g 
assajpv Jasajp pueque ajs ;a)|BMJ3A 
pun qe assajpejaqojadg jauja ub a;s ja 
}ßa| ‘uapujfnzjapajM qone ajs uun ' 0 nuu 
ua>|jauj anequjuaiqBjjBA ajp OMpuaßjj 
ef qojs ja gep ‘jbim qojs ajg uaqoeuu 
‘uazjasjaA sja}nduuoo sap aßerj ajp uj 
fZfaf qo;s ajg uuaM uiapuejdA qa/Auaiq 
-BjjBA uap uajojBjado uauapajqosjaA 
jap aj|!H MUJ ‘uaqaßsne jjaAA uajq; ajg 
uauug>| qujjd )jlAI joa a|qejJBAjaßa}U| 
aieujjou zueß auja qo;s ajg ua||a;g 
uaijaqnaiq a)uessaja;uj aßjUjd uaj 
-qBpa jasaq uaßjjqn aja qqoepaß ßun| 
-oqjapajM s|b uuep apuaß|oj sep isj ajg 
jng pujs (»sjajujod« qosj|ßug jne) jaß 
-jaz sbm ‘jaqojs ajg uassjM ‘pujs »qoJd 
-jaiquuassv« uja jbB japo uaqeq jzjas 
-aßjapuBUjasne aqoejdsuaujqoseiAj 
)jiu jBUJUja uoqos qo;s ajg uuaAA 


( 

f([2]Piaj‘„u\P3S ^P PI^J Q-sq ()ounjqns ui Ä )jqufjd 
/* uapBi oz ff ui Qounjqns ui */ f02=[2]Piaj 

} 

• []PI 3 J W 
(piaj)ounjqns 

[ 

• ([2]Abjjb‘ <( p5S=Abjjb :()ufBtu uf qonB fZfaf,)jqufjd 

! (ABJJB)ounjqns 

• ([sJAbjjb^uxpjJ fjan uap Abjjb fBq ()ufBiu ui a )jfufjd 
/# uapBf q ff ui uoffjpinjfdnBH Jap ui */ f^=[g]ABJJB 

![C]Abjjb fuf 

) 

( )Uf BUI 
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:neqinv tuapuaß 
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-jBMja ua^epuauosjad uoa ßuni|BMjaA 
jnz uiiuBjßojd U |3 uadA}ua}Ba apa|U|q 
-woy qonB ujapuos 'uaqBjsqong au|az 
-Uja pun uaiqBZjaßajui am uadA^ua^a 
uapuaßaipunjß a;p jnu tqoju qoj|Ujaqos 
-jqBM uuep ais uazjnuaq ‘uiayoj/vqua 
ujujBjßojd saxaidwoy u;a ajs uuaM 
qepuj) ‘jazuajßaqßuujs uap ‘ajAq 
-||nN uja ajs p|Bqos qapuaaq uo(4>)und 
- 44 Ujjd jap uoa pjjM aqBßsny aja 'tajnap 
jaßjaz uja uap jns ‘sns ßuujs uauja 
4 >)onjp »s%« iwajsaßjOA 4 jiu qoja|ß 
qonB pjim puud jn| uoqdo anau auig 
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((Sufjqs s %„) jq.ui.id 
MO uf Sufjqg 
Ufa fsf saf cl, =3ufjq.s 
JSufjqs# JBqo 
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( )Uf BUI 

:ua| 

-jajßyonjnz japiajuaiBa jns jia^qoj^jjM 
uj jajq ais gep ‘pjjM jBq 4 qojS f>jaj!p gsp 
auqo ‘uajaiinujjs ßuujg dAjuajBQ u;a 
qonB qojs \y%\ uaiqBUBA-jaiUjOd 4!IAI 
•jeppj/vqug-Q jap j!aq|nB|dd|i ajp 
jqonqos ujapuos ‘^oajs >pßor| aujay ja; 
-Ujqep gep ‘uaßBS uauqi jjM ua||OM 'pep 
ujapuB asjaMqiajqos ajp ubuj osajAA 
'uajaiuosgj jaqnjsp izjaf ais JOAag 

( 

f (4H-J09T0Z#)jBqo:;nd 

(10\i =1 asSTQZ*) aiWA 

fäUf J3.S=J09f0Z 
fj03f0z* JBqo 
f^BJJBUBqofoz 

UT 9 q.s* S 0 ld* 

= []3u^jq.s JBqo 0 fQ.sq.s 
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()UTBUI 

:uaq 

-jajqos »ßuufs« qosjuja qonB ajs uapnp 
>[ 0 ]ßuufS'?« UBis uasaj/waßujq qoou 
qonB ias asjaMqjajqoszjn>j auja 4ny 

ojSBg 

u| uajojdu^saa-ßuufs 4 . 11 x 1 uajajjuBH 

SBp S|B ‘jqatu qojiqaqja jaßjaz Jaqn 
sßuuis uoa ßunfiaqjßag ajp pejqojapa 
sajQ » 0 \« afAqunN uja jawiuj 4 s; uaqo 

-jaz ajzjai sbo qßaiaßqB sapoo-nQSV 

s|B jaqojads uj; qoBU aqjay Jap uapjaM 
a!S 0 Ja»un uapa^uaqoiaz uoa 4 |aqjap 
•uosag auja 4 s; saja }>joap 4 ua 0 pa/\A 
iuap )|uj afAg u;a ja sjq ‘snB uaqojaz ajp 
jajnduuoo jap 4 qjß a 4 ja|qos-a|jqAf\ jauja 
u| quauiaig ajsja ssp 4 ns jaßjaz uauja 


4 Z 43 S pun »ßuu 4 S« uaujB|q iuap üuj Abjjb 
- uaqoiaz uia jzjnuaq ujujBjßojd sbo 

( 

i (-i-+j0Sf9Z*)j:Bii0q.nd 

(iO\i =1 J93T9Z*) aim* 
t [O]3uijq.s^=a03f0z 
fj09-p0Z* jsqo 
f // iCBjjBU 0 qof 0 Z uf© 

S9T0 // = []3trpjq.s Jsqo o*f^Bq.s 

} 

( )Uf BUI 

:j4ußnz ua^ajjp 
uauja qojnp qonB ujapuos ‘uauaqjBaq 
sazipui jap aqßßuv a!P qojnp jnu jqoju 
os qojs uassB| sAbjjv uafUBfsuo^ßuujs 
pun ujapiaiuaiBa jaq jaßjaz a!P pujs 
uaiqßjjBA uaqoßjuja jaq s|B jaßjjqojM 
qqoju os|B pa;u 
-Ojiijunj sja}UjOd-jBO|| sauja pun -jsqo 
sauja uoj 4 >)BJ 4 qng aujg uajoqaßuB 
dA}ua}Ba uaqiasaiap jaßjaz apiaq 
uuaM 'qojißpuj jnu jaqB }Sj sajQ uaj 
-apuB ujauja uoa sjaßjaz sauja uoj}>)BJ 4 
-qns ajp pun jaßjaz JajaMz qoja|ßjaA 
jap uajoqaß uaiqsjJBAjaßjaz 4 juj uau 
-ojjBjado uaiqnB|ja uajajja/A uap nz 
9 iBiuuja unu )q;ßja 
£,Z pun ‘pujs Bubi a}Ag ja/wz sjaßaiui 
0 Bp ‘jaqsp ;ujujo>j saja sqoas ujapuos 
‘atAg iajp ;qoiu jaiq jsi zuajayia aia 

■( 

‘(uaSfBZf ‘ Ä u\pjj m z u )J4 u fud 
i f-fj03i0Zf =j03f ©zf 
f(ua3fazf ‘„uxpj' "T„ )jfufad 
‘f>8=a03f9Zf 
* 0 =T 

fj93fBZf*‘f fUf 

) 

( )Uf BUI 

qauqoajaßmn 34jajqua4Ba ajp 4 ns 
s||B 4 uaqa jajq uapjaM afjaM aia qoil 
-ßouj ujaßjaz jaq 4 Sj uafjaM-Jaßaiui uoa 
uoj 4 >)BJ 4 qns pun uojfjppv ajp qony 
japuBUjasns ajAg ;aAAZ qoopaf » 4 U 1 « 
uoa ajp ‘a;Ag uja »JBqo« uoa oijom ! 9 mz 
ajp uaßajj ‘fßjaz tuiuBjßojd SBp ajM 


{ (j93f9Z4Uf++‘J93f9ZfUf 

‘// u \ n 3» n :q.uf Ä )jq.ufjd 
i (J03f 0zaBqo-f+'j03f 0 ZJBqo 

‘»u\nSS n% :uBqo„)jfUfad 
fa0q.OBJBqo^=j03^0ZJBqo 
i J030q.uif38=j03f0zq.u'f 
t =j 0 q.oBJBqo 
^8C9T= J9 30 ^ut 
fj09l0ZJBqo* 'J0Q.OBJBqo JBqo 
i J03f0zq.uf #' J 0 § 0 q.ui q.uf 

) 

( )Uf BUI 

:qoj| 4 nap ujujBjßojd uapuaß |04 ujb 
PJ!A^ o uoa »ßunfSjaiaojAjas« asaja 
afAg sqoas uin lajdsjag ujnz fja^ßi 
-nßuao jap uoa ßjßuBqqB ua|qBZBiuwo>| 
-gajld pun a;Ag jajA wauiqfjjv-ljg-ge 
jaq s, 4 Uj ßuo| ‘ajAg ] 3 mz tun afjaM 
-jaßafui ‘afAg uja iun 4 ja/v\ uap ujap 
-UBJ 8 A s,JBqo 4 ns jaßjaz S 4 JBMqB japo 
- 4 nB sdAfuafßa sap fjaqujg auja tun ujap 
-uos ‘S 4 JBAftqBjapo- 4 nB j. mn jqauj fqoju 
uaiqBZ ajs uajojejadojuaujaj^aa pun 
- 4 uaiuaj>|u| ajp pu;s fUßssajafUj sjap 
-uosag uauqoay tunz qonB qoj|jn|Bu 
qo;s uaußja uaiqBjJBAjaßjaz aja 
tuujBjßojdfdnBH tu; ßunjapuy ajp 
qone uojf^ung ajp 4 >|J!Maq »ze+üaqo 
-jaz=jaßjaz ¥ « |qa 4 aqjaßjaz map 4 ji/\| 
•(Z6=Se+99 ‘S9=,V. 76=.B.) apoo 
-IIOSV Lunz ze 4J3M uap J 84 nduuoo 
jap fjaippa ‘Bf uua/v\ qsj aqBfsqonqgojQ 
uja idnBqjaqo uaqojaz SBp qo ‘4334 
uaßunpjaqos 4 ug- 4 j uapjaq uap fjuj 41134 s 
J 84 nduio 0 jaa ’ 4 ieq 4 ua uaqojaz SBp ajp 
‘aiqBjJBA a|B>) 0 | au;a qo;s 4 J 3 jUj 4 ap a;s 
jd4aujBJBd aia|Btuj 04 S|B jaßjaz tuauje 
4 jut 434 jaqjB uo; 4 >jund-»JdMO|« ajQ 
snB 4JaMua|qßjjBA ua 4 jap 
-UBjaA uap 4 q;ß 44 Ujjd apoo ua 4 J 3 j 4 jaA 
-uo>| uap »uaqojaz« 4 |Bq 4 ua uo) 4 >|und jap 
ßunßjpuaag qoBiq »j 3 aao|« uoj 4 >)und 
ajp ub aiqBjJBA ajp ujujBjßojd SBp 4 qjß 
-jaqn sjaßjaz sasajp puequy assajpB 


Uj8|)| qoeuj gojß sny fr ßujjsjf 


/* U9J9fppB 48SJJ0-II0SV */ f3C+U9q0f9Z=a93f9Z* 

/» SurudsJiopy ,z, xaopxS uua^ »/ ‘uanq.9J (,Zi <u9qofaz) jf 
/* SurudsjpoH ,v 1 xaufafy uuan */ ‘ujnfaa (,v, >uaqof9Z) jf 
/# uafoq uaqofaz saqofiqopsq.BX */ (aa3f9Z#=U9qofaz 

/# afqBfJBA afB^oq */ fuaqofaz asqo 

} 

/* JBfBureaBj jaf buijoj sfB J9q.Ufoy */ fjaSfaz* JBqo 

/# u .lawoT,, uofq.3funy #/ (aa3f9z)a9woT 


/* uaqaSsnB uaqofaz saqaapupap */ f (uaqofaz^uxo^ )jquf ad 
/# aaSfaz XBqp jnajnBSUOfqjpmy #/ f(j93f9z)j9A0i 

/* uaioq uaqBqsqong jbb aaSfaz */ fuaqofgz^jaSfaz 

/* U9S9TUf9 uaqofazjnqBfSBX */ f()JBqoq9S=U9qof9Z 

/* 9xqBfjBAaaSf9Z */ (J93f9z# JBqo 

/# axqBfjBAuaqof9Z #/ fuaqofaz JBqo 

} 

( )Uf BUI 





qons ‘igannosqB sßujjjs 3||e sep 'ajAq 
-||nN sep gep ‘qojnpea (»Adoo ßujjjs« 
igiaq »Adojjs«) uajsja sap Bubjuv 
uap ue ßuu)s uajjaMZ uap paido>| 
uaßaßuiq (<i6uij}s‘|.ßuij}s) Adojjs 

l 

■ (T3u-[aq.s‘ < ,sj( Ä )j^ufJd 
‘ (2:3up jq.s‘T3upjq.s)q.BOjq.s 
i„ -3unq.q.0}tJ8A3uTJ:^S „ 

= []<^upjq.s JBqo opq.Bq.s 
i 0 9Uf0 q.sf S 0 TCL 
= [^]t3 u T* i ^ s «isqo opq.Bq.s 

} 

()UfBUI 

:uaßujjqnzjajun jaqojs 
ßuuis ua;| 3 Mz uap qone ain ‘uaqo 
-bui nz ßnuaß gojß »t^g« aqsßuv ajp 
qojnp piaj ajsja ssp ‘jaqBp ajs uajqoB 
-ag pionjpsnB uauJuiBsnz uubp pun 
pajujjap sßuujs jaMZ ssp ‘uiujBjßojd 
-0 sau;a|>| Ujd djs uapujj ibojjs 
uoa uo!}BJ}suouiaa siv apooiuuiBjß 
-ojd uap qoriB japo uajBQ ajapuB 
ßuuts ap 3 )! 3 /vua jap iqjajqosjaqn hbj 
uaiswiunqos uj| uajBQ uanau ajp jnj 
jsj ßnuaß gojß qojiijjjM piajuaiBa ssp qo 
‘iqoju jaqs pnjd uoipiunj aja qßaiaßqB 
sßuujs uajsja sap qojajag uj; pjjM 
ßunpuiqjaA Jap Sjuqaßjg sbo (»ajBu 
-ajBouoo« jnj jaqBp jqajs »jbo«) ‘sßujJis 
jaMZ pdnu>|jaA »(sßuuis'tßuujs) 
}boj}s« puis sdÄi-jBqo sap sAbjjv 
jnu qojßuaßja a||B jaqB ajp 'sßuujs 
uoa uoj)B|ndjUB|/\| jap uajzads juaip 
uauojpjunj uoa aqjay azusß auig 
ne- m.xne-Jioit^ps.touiJd 

0 I((.l*»iJ|0|e\p%*)*|U|jd 

€ )|0»*‘,P%«)*»u|Jd 

eez i(LeezJi<nB‘„p%.)wuiJd 

:jO)B uoa ßunzjnuag ajp jnj d|djds 
-jag aßjujg uaqajs»-«pun »+« uaqojaz 
-joa ajp qons uapnp |qBZ Jap JOA qnajs 
-jBp jqauj jayiz auja>| ssp ‘jsj jqojajja 
uaqojaz u;a s;q ‘yqnjaßqojnp pjjM 
asaja ßunipuBMiupi ajp luujßaq ‘pjoap 
qua jajuz ajsja ajp ioje p|Bqog sapoo 
-auj|MaN pun ajnjjn\/-av± ‘uaqojazjaaq 

uepuaqajsuBjOA ans }sai|jaqn djs ujai 
-ajdJajui-OjSBg uajsjaiu uap jaq osv 
ajM jajjaqjß uojpjung aja uapjaM uaq 
-aßaßuB jnjjnBSuojpjung tu; ajuBisuo» 
s|b japo u;as piajujjap ÄBJJV-Jeqo S|B 
japaMjua uub^ ßujjjs Jaa »Jaßajuj o; 
ßujjjs nosv peAuoo« uaqajjqosaßsnB 
igiaq »jO)B« |qBZJdßd)U| au;a u; ßujjjs 
uauja napuBMjaA »(ßujj}s)jojB=x« 

i :((e)uß!8‘ Ä p% ( ,)j»u|jd 

0 Wußfs^py, J»»u|jd 

v- :((e-)uß|«‘.p% ,)»u|Jd 

•i ;je/v\ uap 

uapiauj uaiqBZ aAjijsod ‘uniq auja ijajaji 
isqias ||nN ajp ‘ =x ujajaj| o s|B jauja|>) 
uaiqBZ x qoßu sa iqjajqos pun A uoa 
uaqojazJOA sbp qojs noq »(A)ußjs=x« 

0 t((0)«q®‘«P%,)HUMd 

e :((e)«qB‘,,p% jj»u|jd 

c !((e-)«q®‘,p% ,)HU|jd 

:|BOSBd pun OjSBg uoa uoj^unj-sav 
jap ßunqoajdsjug-o ajP isj sqB pap 
-ugjaAun uaqjajq apaM aAjijsod pajz 


-j|dj)|nuj j.- 4 jiu os|B uapjaM uaiqBZ aAji 
-BßaN pa/\A JaAijisod jq; jsj iqsz Jau;a 
ßBjjag jaa uja Ä uoa ßßjjag uajnjosqB 
uap x aiqBjJBA ajp uj }saj| >(A)sqB=x« 
:uaqa)s ßunßnpaA jnz uau 
-ojSjaAUOijuadAi auapajqosjaA jn* pun 
uajqnjqojnp uaqBßjnv aqosjiaiuqijJB 
ajp ‘uauoj}>jund uaßjUja nz jsjanz 
sjaijduiOQ sajqi )!a>jß!pug}S||OA ajp 
qons ajs uauua>jja ijaqjojiqjg-jaljdluoo 
jajqi ijiu ßunujLUjjsujajaqn Jap pbjq ujv 
pu;s qoj|gB|jaun qoB^uja uajdjtuuJBJß 
-ojd saqojajßiopa jnj a;p ‘uaujaiuau 
-ua>j uauojpjunj-Q jaßqqojM aqjag aujd 
ajS uapjaM uapuaß|Oj lu| ub ajqotjg 
pun UBqßjUjax uoa ßunqaßujniuaisAs 
-xjun Jap ua^aqjojiqjg uap qo;s )gaj|qos 
jaijdiuoo jap ijajgojo Jaa ua}ja>j 
-qojiuqy apuaqosßjjaqo qoop qojs uaß 
-jaz 'uaßai|jajun ßunujjoN ;a|jauja>| qo;i 
-jn}BU ja||a}SJaqjd|jdiuoQ uauiazuja jap 
uaHaqiOjiqjg a;p iqoMqo qßa|aßqB uau 
-o;i>|und uaßjpudMiou aqoßjds Jap puu 
);aqjv ajp JDJ a||B pu;s uubo ^aqiojiqjg 
-0 a;p tun uassjM sbp qons jsi pa>j 
-ßjtqojM Jajuaujiua uoa uaqosjjaqaq 
nz o uin ‘jqonBjq ublu sbm 'se||B jqoju }Sj 
aiqajag -0 jap sju}uua>j ago|q ajp qooa 
u|d>|OjM)ua nz 0 u; atuuiBjßoJd 3 ||oa 
- sqonjdsuB jqoaj ‘jja^ßjqed ajp uaqos 
-jMzuj uaqßq ajs ßunjqn^u;g jajasun 
gniqog tunz oibsBubi uaiuiuo>j jjaa 
snBUjq sasjn^sßunjqrqujg sasajp 
|ajz sbp jaqn jjaM uaqaß ass;u)uua>| 
-jdjUJUJBJßoJd uaßijQU a;p qooa ua;|Bq 
-}ua uajn^njjs ajajjaM pun japiajuajBa 
tunjapajM jsqias uauuo>| uajn}>jnj;s 
uapunpa jaj) qoj|jn)Bu 
puis jai|Bqao uauaqaßaßuB aia 

( 

i (q.IBL[03-S0UUBllOf 

BMq.9 ssuiiBi^of* pu^ ) jq.upjd 
‘ (q.iBq03*q.nuiT0q^u\ip^ 
q.nuii9H q.U0Tpj0A„ ) jq-upad 
i jnj 0 q•sauuBqo f 

• 0^% = ^T Bl l 8 ^ * S0UUBl[O f 
fT=jnj 0 q*q.nuii 0 i( 

• 00STT=q-I^s3 * q.nuii 0 q 

i s ©uuBqo C * q.nur[ ©q ( 
f jrtJ0q q.up 
fq.pBq 0 S q.ui 

) 

q.onaq.s 

. ) 

( )Uf BUI 

iuaijajznzjOA a 6 | 0 ^s|i|d^ag apuaß 
-| 0 | jaqB jsj ||bj ua||ajzads uuasaip u| 

fnBJ“S 0 UUBqof J03tpq.piod q.onaq.s 
fiqo3pq.nur[0q J05ipq.pxod q.onjq.s 

n 

fjrueq quf 
fqiBqaS quf 

) 

J 0 }pfq.piod q.oruq.s 

:uauug>j uajaju^ap iBiuuja ^na naq 
-|nv uaqojaiß map ;;m uajn^mis ^uap 
-ajqosjaA ajg gBp ‘na^JOA uap ^Bq sajQ 


/# aSuTiggads Jap iqsz */ 

q.up 

/* q-TBqao ’^zq UBUimo^ufa */ 
f U0imiio3pip 0 q.up 
/ #3TPai=« I» */ 

fpuBq.su0pipuiBj JBqo 

/* asiawsSunqefzaq „w, */ 

Iq.qo0i;qos09 JBqo 
/* j0uramN-suopq.B5[pjTq.u0pi */ 
fj 0 uimnupf q.up 

) 

03tSBuiU0Uosj0d q.onjq.s 

:qo!lpuB;sjaA 

os sbp ais uaqoBm jandmoo-o maa 
uapja/w jzjnuaq s|Bmjqam ^japuBjaAun 
ajp - ua^onjpjOAJBinmjog \\[u JBqqoja|ß 
-jaA - uapuaMUB uajn^nj^g ajajqam 
uubp asaip pun uajamüap »a>|SBm 
-jn^nj^s« 9 Uja aqoB^uja |nB uauuo>| 
ais qiaqjapuosag auja qoou ^aiq o 

f ( U0UIUJO^Up 0 

•uosJ 0 d f // p^ q.sp y/ )jq.upjd 
f (J 0 uminupp *uosJ 0 d‘ 

^ p^ uosj 0 j uoa U0uiuio3tupa /y )jq.upjd 

* 002 + 

U0UIUIO3tUi:0 * UOS J0d=U0UIUIO5{Uf 0 • UOS J0d 

ißunqgqjasjiBqao jauja 
qoBU BM^a - uajqnjqojnp uauoqajado 
aqos;ßo| pun aqosqamq^JB qona qojs 
uassB| ua^uamaiajn^mjs uap \\w 

:Z = iqBZJepu^u°sjed 

•0082 = u«uiuio)(U jö'uosjöd 
:,a, = puBjsue|||UJBjuoejed 

:,m,= mD®mos«öuosjed 
-t^86 V =J»ujuinup|-uo8J»d 

:s|aMsnB|Buosjad uanau 
uajq; jnj uajBa apuaß| 0 | }qojd||djA 
uuep ajjßq uuBiujajsniAj B^jjg uaqo 
-ojdsaßuB »auJBuua)uauodujo>jaiuBU 
-jn^njjs« uaiueN uap qojnp uapjaM ua) 
-uauodujo>jjni>|njis aia uepuaMjaA a|q 
-BjjBA ajM ibiujou zubB jnjvjnjis jap a|jai 
auiazujd djs uauuo>j uapuaßioj ui| 
uaiuuiBsnz pjundqojjjs uap 
-uagajiqosqB ujauja pun (»uosjad« jajq) 
jn^njjs Jap uauiBN tuap ‘»(« jaaiujB|» 
ua^jaMqosaß uapuagajiqos jau;a '(»••■ 
:puB}suaj|jUjBi JBqo qqoaiqosaß JBqo« 
jajq) u8}uauoduuo>(jnt>jnjts jap a;si-| 
jap ‘»J« jaujaiBi» ua^jdMqosaß uap 
-uauyo jap ‘»lonjjs« }jOM|assn|qos tuap 
snB qojs jzjas uojpuqapjni^njjs aja 
»jsqo« pun »)Uj« asjaMS|djds 
-jaq sbp pu;s ja;H uapuaMjaA uad 
-Ajuajea auapdjqosjaA ßj)jazqojd|ß jnj 
->jnjig jauja uj uauuo>) ajs ‘uaqas ajs 

i uosjad ( 

/# aSufiggads Jap iqaz #/ 
fXqBzaapufJj quf 
/# q-TBqao *wzq uauiuiojtufa #/ 
fuauiuioaufa q.uf 
/»3fpsi=„I a < qaq.BJfaqj3A= (( A, < */ 

fpuBq.su0^iiuiBj JBqo 
/* „m,, asf awsSunqaf zaq #/ 

fqqoaiqosaS JBqo 
/# jauiumN-suof^BaTJT^aPI */ 

*. j 0 uiumup*f q.up 

) 

q.onjq.s 
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||BH-93!|U9Jd ‘»aßenß 

•ugt] ßujuiuiBißojd o am« .maizjOA aqeßsneieujßuo aipsiueWQwe 
9!P J0M >8Z8et-9frfr-G N9SI ‘0861 ‘uaiM/uaipuoifl ße|J8A-jasueH 
‘>0 uj uajaiiuiuBjßojd« 'ajipuy ■ y\| siuuöq pun ueqßjujax m ueug :o|U| 


(ßM/B||niox uujbiai) 

ueßuniaß jnß jaqB 
ßunzjasjaqn ajp }Sj uajsuosuy uaqajs 
-J8A nz ja/wqös iqoaj azpsg aqoueui puis 
s||B^uapar «iJazjasjaqn Jap sjupuBjs 
-jaAqoBJds saßqjBuaßia japo jaiqaj 
-Z}Bg - uajxai uap uj uaAquBjsqng uaj 
-zjasaßuawwBsnz uj aqojjjsapujg ajp 
qong uajwBsaß tu; uaiqaj asjaMjawBS 
-lieg uanajßHonjnz jeq^ußp qoj|jaqois 
uauonemjojui uajuajsaßjBp jB|^8B|ß 
aip ins ajg uapjaAA ‘uaqosjjaqaq q jaqB 
ajg uuaM uaqauqosaß jajajuuwBjß 
-ojdiuajsÄg jnj ujajajiuiuBjßojduiajsÄg 
uoa uaqa }Sj sg qsox ajaMqos nz 
jjaqjaqojg jjiu jaqB qong ssp jsj ‘(puis 
jqaiu iqoiu qojijuaßja jaqB sjnx uias 
-aip qoBu ajg ajp) jaßu^uy Jng uaqajz 
-UBjaq zuajajay s|B so|ua>juapaq >pa/\A 
-pjBpuBig sasajp ublu uuB>j qqoju sbaa 
pun }Sj tqnBpa o uj sbaa ‘jndsjQ tuauja 
jag a||ano jap uoa wajjp uaßßsnzos 
‘ajqojjy pun uBqßjuja» ujajdoqog 
-0 uap uoa pjajjp uauojjBWJOjui j|Bq 
qua »o u; uajajUJUJBjßojd« uasajMaß 
-ujq uoqos jajq jaqB jas qong uja jnv 
ub jngjaqong ajp qonB }||jMqos 
Bdojng pun B^jjawv uj o jnj ßunj 
-ajsjaßag uapuasqoBM jap ij|/\| uajnB>) 
qonqqoßg sapuaqoajdsjua uja qojs ajg 
ua)||OS ‘ua||OAA uauja|uauua>j aqoBJdg 
jap ua)jdqujdg uajzjai a;p qonB ajg pun 
‘jsj i>joaMaß o Jnj assajajui jqi uuaM 
uaiuBUjajBQ uoa ßunp 
-|jg jnz uayjjqosjOA uaqojipajqosjajun 
a;p ub uoqos Ujd||B ajg ua>juaa ujaj 
-ndiuoo uauapajqosjaA uap jaq qonB 
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/* ■ qq xß jaqan 

qjaMxmszzueo uauta pun qtpfaf 6 jsa as^aesua^ea jaxaMZ jassanxq^S 
alle axp ‘ uoxq:>iun j axp >ne jaßxaz uta xst jaqaumj©d aqxaMZ Jag */ 

S () < dwao*) qu x 

/ * a zqaesua qx?ci 

japuajatxjos nz xM esu W atp x (pau 6 xsun> ja^aiueJ©d a^sja Ja <3 */ 

Su paußxsun 

/* -uaqaßjaqan jaqauj©j©d xajp 

uapjaM qjos-aiqqng uoxq:=iunj jap q^undsßueßuxaqdm?H wasaxp uy */ 

( deMS ‘ dwoo * u> q josqnq ptoA 


qux pxoA auxqap# 

/* 'uajaiuiiuejßojd nz azqaesuaqea u J{q snwqqxjoßqeJaxqjag 
uaßxßuaeqqiaunzqesuaqep uauta ‘qqnexja ujaßxaz uoa ßunpuaM-ja^ axg */ 


/****************************************************************•#***/ 

/* ********** qjos-aiqqng uoxq^und ********** */ 

/*************************************************** *** **************/ 


/* ‘uaqtauqas nz qjepag uauaßxa 
uap janx axnpowjaxqjog qats quqox sg • qwujosi jqa uawwejßojd 
uaqsxaiu uap ux atp ‘aqeßqny auxa qst uaqea uoa uajaiqjog sea 

• uaß xqqo xs^oanjaq 

qßuxpaqun dXquaqea uaq xapueqaq uap uassanui uauoxq^und apxag 

■ßxpuaeqsnz uaqosneqjaA sep uanj- qsx 
() deMs ‘aquawaxauaqeg - ja P ipiatßjaA uap qqaxzxxo* <) duioo 
■ <) deMS pun <)dwoo suaqxajqos qsqxas uauoxq^unj xaMZ 
ja ja xuiuie jßajd jap ssnw uo tq^unq ja xqjog aqqaxdiuoji auxa janj 

■snujqq x joß xe ja xq jog 

uaqoxxquaßxa uap jnu uaqxeqqua uauotqsiunqjaxqjag asaxg */ 


(!M/ja|zt3 J 9 U| 0 |-|) -uapjaM izjasaßwa awiuBjß 

-ojd anau u; pun uauiuuouaßjnB M 9L U°!ld!a 3 uaß;a aip uj uuep 
uub>) ais qs| jBqziaswa uadÄjuajBa aßiqanaq jnj auflnoy 
ajp xjBp ‘uapjaM uapaiuujaA qojnpep uub>) saio ub nazjajw 
-uuBjßoJd anau auunojjaqjos a|P JQJ 1 IISJ ‘uaupjo uauiBN uap 
qoBu jajBds aqoo/w awa ajsn 9 !P Jaqe ubui axqoQj^ qiajw 
-uJBjßojd iiauqos jqas jsj sbo uapjaM paipos iqBzxiapsod 
jap qoBu ||0S jaiBpuajuBjajan oujg :nzjajq lajdsiag U13 

qs| ua}|Bqaß |aq 

-|xa|| ujapuos ‘uub>| uapuaMjaA dÄiuajea uaiujiupsaq uawa 
jnu xqoiu auunojjapjos a|p t)ßp ‘sjapuosaq isi uaiqoßaq nz 
qilßlUB puBMjnBjaiiuWBjßojd jajnauja {|Bp auqo ‘uapjaM 
uapunqaßuja soituaiqojd uJUJBjßojd sapaf uj ajs uub>| os ‘uaq 
-auqosaß aupnojjapjos aiiasjaAjun auja ‘||Bd utauasun u; aj m 
‘ ußui }bh uajaiujuiBjßojd nz uauop^unj ajBqzjasuia iiasuaA 


-jun ‘sa qs; japuajedspaz x^a^apud tuj pun jassag uaqiajqos 
nz xgsdaßuB aqßß^nv aßmaMaf a;p ub uauoipiunjs^aqxojiqjg 
‘Bubjq jap ujajdjuuuiBjßojd ua|a|A ;aq iqosjjaq japiaq 
uapuaMjaA nz pos uaiBiupdo aqeßjnv aßj|idMa[ a;p jnj uap 
‘ßpqojAA jqas sa qs; ‘uassntu uapjaM papjos apuBjsaquaxBa 
agcuß sua}S|aiu jaqB ea uaujqjuoß|Bjaujos aJ3J 
-qauj qqjß sg xujuio^joa uaujiuejßojd uoa |qBZ|aiA^^W 
jau;a u| a;p ‘aqeßjnv au;a qsi uaisa uoa uajaipos sb 

-uatieisaß jauasjaAiun pun ja|q;xa^ 
laqea au;a qiuios pun ue^ej>|J8A uadAquaqea 8J8J 
-qaui uua)| o aqoejds Jap uj uiuiejßoJd-)JOS Jasun 
ß;qou uaupnauapios aqoüpamosjaqun qone 
pujs ‘uajapjos uadAquaqea auapawosjdA ueui ihm 


uauuoMafi q|Di| qsi 
fjaifjos (ng 















001- etl^S ßunzjesijoj 


/* ■ uapjaM uaqotxßjaA japueu taq tw uu\?p atp ‘ q x la^ja^un ua^si x 
”TT a l a-Jautax^l ui aqst~| apuaqaqsaq uaquau»ax3 u sne auta pjtM jatH 

•qjog~x X a MS 

aquueuaßos jap qs t qjog-axqqng umz aAtqeujaqxy au 13 
■apaqqaiq a6 cpuaMqneq taz jqas auta puv?qsaquaq*?g 
uia^ojB taq - uapjaM qjqan qaßqojnp uauo t qejadosqo xa xßJa/j 
Z qooq u uassanui uazqaesuaqeg uapuajatq jos nz u tag "ssnw uapjaM 
uaL|at x&jaA uajapue uajxe qtw spjooay uapuajatq jos nz jap zqesuaqeg 
japaf ±m?ma Jnpua j-ta xqag uiapaf taq ep ‘^uatzt^a jqas qqotu qoopaf 
qs t J3 ■ uapoqqawjatqjog uaqsqoequ ta jap> jauta qs t qjog-axqqng jag 


/* ********** qjog-axqqna uo tqqun, : j apua ********** 


/* • qs t ßtpuaMqou jqaw ßunqosneqja^ 

autasx s tq ‘ q jqan j-aßsne a6u«xos pjtM ßueß joajb tq jog jaa */ 

S(q)aXxqM { 


/* -qzqasaß (X) 3 D 31 j-ne ße* x q-de>Ms 
sep pjtM ßunqosneqjaA jauta qoerq */ 

■ ( = q 


/* ■ qjqanqaßsne uaqasneqja^ sep pjtM jatg */ 

i ( X + Pf) <deMs*) 

/* ■uaqnjaßqne 

jaqawt? j\a,~| spa azqaesuaqeg uaptaq jap ujaxqaez 

uap qtu» p j tm ( uo Tq:>|unqsqa ta x & JaA) ajedwoo */ 

y <0 < (T + T ‘ D (diuoo*) ) qt 


M 0 |S||eej 

0 uj ueuii|i|Jo 6 |ej 8 |Mos 
auepemosjeA ‘ßujisn 


/* x- u stq 0 <-ioa ujawwnuzqesuaqeg */ 

<r++ S x - U > r *0 = D Joj. 


/* " < 0 ) 3 S lyj qjaMsßuequy 

uap qxaeqja ( ßunqosneq Ja^) ße [ q--deMS seg */ 


/* ■ qqoewaß qo ta xßjaA uta suaqsaputu» pjtM 53 “uajatqstxa spjooay 

tawz suaqsaputw qo ‘ q x xaqsaßqsaq pjtM uatq^unj jasatp ui */ 

> op 

/* "qapuaMjaA spjoaag-xapui ut pjtM C */ 


Sr paußtsun 

/* -aqßxoj-ja ßunqosneqja^ auta qo ‘qwwtqsaq q */ 

Sq paußtsun 


•qqosneqjaA 

azqaesuaqt?g taMZ atp ‘ uotqijung atp j-ne qßtaz jaqaiuejeg aqq tjp jag */ 

S () ( de>Ms*) qut 
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> Listing. Verschiedene 

Sortieralgorithmen in C 

realisiert (Schluß) 

y 

/* Ende der Funktion •#/ 

static unsigned _rearr(lb, ub) 
unsigned lb, ub; 

C 

d o *C 

whi 1 e (ub > 1 b (*_comp) (ub , 1 b) >* 0) 
ub—; 

i-f (ub !« lb) C 

(*_swap)(ub, 1b); 

whi1e(1b < ub && (*_c omp) (1b, ub) <> 0 

lb++; 

i i (1b !« ub) 

(* swap)(1b, ub); 

\ 

y 

> whi 1 e (1 b ! - ub) ; 
return lb; 

*>. 

J 

/* Ende der Funktion */ 

/* ********** Ende Quick-Sort ********* 

/* Als Indizes wurden vorzeiebenlose Variable (unsigned) zur 

Definition der Unter- und Obergrenze des abzusuchenden Bereiches 
verwendet. Variable dieses Typs erweitern den Zahlenbereich, 
der innerhalb der Funktion angewendet werden darf. 

Manche Prozessoren begreifen Arithmetik nur ohne Vorzeichen. 

Werden hier nun normale Integers (int) benutzt., wird bei der Code- 
Erzeugung automatisch ein Vorzeichen gesetzt. 

In C kann der weit groessere Teil von Schl eifenkontrol 1 variablen 
vorzeichenlas definiert werden. 










Rückkehr einer 
alten Dame: Eliza 


D ieOriginalversion von Eliza pro¬ 
grammierte Joseph Weizen¬ 
baum am MIT (Massachusetts 
Institute of Technology in Boston, USA) 
ursprüglich in Lisp. Schon bald folgten 
Übersetzungen in Basic und Veröffent¬ 
lichungen in verschiedenen Computer¬ 
zeitschriften. Obwohl im Laufe der Zeit 
einige Vereinfachungen vorgenommen 
wurden, ist das Resultat doch noch 
interessant. Der Vorteil dieser Version 
ist, daß die Texte und Schlüsselwörter, 
mit deren Hilfe Eliza antwortet, nicht 
Bestandteil des Programms, sondern in 
einer eigenen Datei erfaßt sind. So kön¬ 
nen Sie ohne Neucompilierung Ände¬ 
rungen vornehmen und deren Auswir¬ 
kungen studieren. Denkbar wäre so 
sogar eine Eliza-Version, die Deutsch 
spricht: Wenn Sie das Programm nur 
durch die Angabe des Namens »Eliza« 
starten, arbeitet es automatisch mit den 
Texten in der Datei Eliza.DAT. Wenn Sie 
aber beim Aufruf noch einen Dateina¬ 
men »Eliza <Texte>. DAT« angeben, 
werden die Texte aus dieser Datei 
genommen. Das Programm beenden 
Sie durch die Eingabe von »bye«. 

Das Programm sucht zunächst in der 
Eingabe des Benutzers nach Schlüs¬ 
selwörtern, die es kennt. Die Schlüssel¬ 
wörter gleicher Bedeutung sind dabei in 
Gruppen zusammengefaßt, und zu 
jeder Gruppe gibt es eine Gruppe mit 
zum Schlüsselwort passenden Stan¬ 
dard-Antwortsätzen. Wenn Eliza ein 
Schlüsselwort aus einer Gruppe findet, 
nimmt sie aus der korrespondierenden 
Gruppe einen beliebigen Standardant¬ 
wortsatz. Je häufiger ein solches Wort 
typischerweise auftritt, desto länger 
sollte die Antwortliste sein - so wird oft¬ 
maliges Auftreten immer derselben 
Antwort vermieden. 

Sobald ein Standardantwortsatz 
gefunden wurde, erfolgt eine weitere 
Umformung. Enthält er ein Sternchen 
»*«, so wird an dieser Stelle ein Neben¬ 
satz eingefügt. In der Standard- 
Eliza.DAT treten Sternchen nur am 
Ende eines Satzes auf. Sie dürfen sie 
aber auch in der Satzmitte verwenden. 

Der Nebensatz entsteht aus der Ein¬ 
gabe des Benutzers. Der Eingabeteil, 
der dem Schlüsselwort folgt, ist 
Ausgangspunkt. Bevor er in die Antwort 
eingesetzt wird, wird er aber noch kon¬ 
jugiert: also Wörter wie »my« durch 
»your« ersetzt und umgekehrt. 


»Eliza« gehört zu den Klassikern 
unter den Computerspielen: Der 
Computer schlüpft in die Rolle 
eines Psychoanalytikers. Damit 
es nicht in Vergessenheit gerät, 
finden Sie hier eine Version in 
der hochaktuellen Sprache C. 

Der so entstandene modifizierte 
Antwortsatz erscheint dann endgültig 
auf dem Bildschirm. 

Leerzeilen in der Datei werden bei der 
Auswertung übergangen. Ein Schräg¬ 
strich »/« gilt bei der Auswertung ganz 
genau wie ein echtes Zeilenende als 
»logisches Zeilenende«. Die Datei 
Eliza.DAT ist in mehrere Gruppen unter¬ 
teilt, die jeweils Zeilen mit dem Inhalt »$« 
voneinander trennen. 

Die erste Gruppe enthält das Titelbild, 
das der Computer beim Start ausgibt. 
Die zweite Gruppe - die nur aus einer 
einzigen Zeile bestehen darf - präsen¬ 
tiert die Begrüßung, mit der das Pro¬ 
gramm erstmals eine Eingabe vom 
Benutzer anfordert. 

Die dritte Gruppe beinhaltet paar¬ 
weise Schlüsselwörter für die Konjuga¬ 
tion eines Nebensatzes, die sich 
gegenseitig ersetzen, »i« muß in »you« 
und »you« in »i« umgesetzt werden. 
Deshalb bilden »i« und »you« ein Paar. 
Ab der vierten Gruppe bis zum Datei¬ 
ende stehen paarweise jeweils eine 
Schlüsselwortgruppe und die dazu pas¬ 
sende Antwortgruppe. 

Beachten Sie, daß die Einhaltung die¬ 
ser Regeln nicht überprüft wird. Wenn 
die Datei nicht richtig aufgebaut ist, 
»verhaspelt« sich Eliza und gibt nur 
noch Unsinn aus. Im schlimmsten (aller¬ 
dings seltenen) Fall übersieht die Sor¬ 
tierfunktion sogar die Dateiendmarkie¬ 
rung, so daß das Programm abstürzt. 
Alle Schlüsselwörter und Konjugatio¬ 
nen müssen klein geschrieben werden 
- sonst erkennt sie das Programm nie¬ 
mals. 


Probleme bei 
der Antwort 


Die Ergebnisse, die Eliza liefert, hän¬ 
gen stark von der Reihenfolge des 
Dateiaufbaus ab. Schlüsselwörter am 
Anfang der Tabelle haben Vorrang, 
unabhängig von der Stellung der gefun¬ 
denen Wörter im Text. In der Regel ist es 


sinnvoll, Schlüsselwörter, die zu konju¬ 
gierten Antworten führen, zuerst zu 
nennen, weil das die interessanteren 
Antworten ergibt. Sie können aber auch 
mit anderen Reihenfolgen experimen¬ 
tieren. 

Es muß sichergestellt sein, daß in 
jeder Eingabe ein passendes Schlüs¬ 
selwort gefunden wird. Jede Eingabe 
(bei Eliza auch in einer leeren!) enthält 
nur ein Leerzeichen. Das letzte Schlüs¬ 
selwort der Tabelle ist deshalb ein ein¬ 
zelnes Leerzeichen (nicht verwechseln 
mit einer Leerzeile!). 

Im Schlüsselwort »think« der Stan¬ 
darddatei Eliza.DAT ist die Buchstaben¬ 
folge »hi« enthalten, »hi« fungiert aber 
gleichzeitig als eigenes Schlüsselwort 
mit höherer Priorität - als Abkürzung 
von »hello«. Ohne weitere Vorkehrun¬ 
gen wäre so das Schlüsselwort »think« 
unauffindbar. Bestandteil des Schlüs¬ 
selwortes »hi« ist deshalb ein Leerzei¬ 
chen, um einen Fehlgriff auszuschlie¬ 
ßen. Ähnliche Probleme treten auch bei 
anderen Wörtern auf. Leerzeichen in 
der Datei haben also immer eine wich¬ 
tige Bedeutung - Sie sollten ganz 
besonders darauf achten. Wenn ein 
Schlüsselwort nicht in der ersten Spalte 
beginnt, ist das ein Indiz dafür, daß ein 
wichtiges Leerzeichen voransteht. 
Leerzeichen am Ende einer Zeile wer¬ 
den durch Anhängen eines Schrägstri¬ 
ches »/« am Ende der Zeile sichtbar 
gemacht. Da der Schrägstrich ein logi¬ 
sches Zeilenende bedeutet, Leerzei¬ 
chen aber beim Einlesen nicht beachtet 
werden, schadet das bei der Interpreta¬ 
tion der Datei durch Eliza nichts. 

Bei umfangreicheren Dateikonstruk¬ 
ten können bestimmte Präpositionen in 
mehreren Paaren der Konjugations¬ 
tabelle auftreten. Wenn eine mehrfache 
Präposition bei der Analyse eines Paa¬ 
res in den Nebensatz eingefügt wurde, 
würde sie bei der Analyse des anderen 
Paares fälschlicherweise wieder ent¬ 
fernt und durch eine dritte ersetzt. 
Konjugations-Schlüsselwörter, die in 
dieser Weise eingesetzt werden, dür¬ 
fen Sie deshalb in der Datei mit einem 
zusätzlichen Unterstreichungszeichen 

»_« versehen. Das verhindert ein 

erneutes Finden. Vor dem Einfügen des 
Nebensatzes in den gesamten Antwort¬ 
satz werden alle Unterstreichungszei¬ 
chen automatisch entfernt. 

Scheuen Sie sich nicht, die Datei 
Eliza.DAT nach eigenem Gutdünken zu 













verändern (natürlich sollten Sie eine 
Sicherheitskopie aufbewahren!). Inter¬ 
essant ist, außer einer allgemeinen 
Erweiterung, etwa die Übersetzung der 
Texte ins Deutsche, mit Anpassung der 
Konjugationen oder ein ganz anderes 
Gesprächsthema. Vielleicht können Sie 
die Antworten auch so geschickt wäh¬ 
len, daß der Benutzer beeinflußt wird, 
über ein Thema zu sprechen, zu dem 
Eliza besonders viele Schlüsselwörter 
weiß? 

Die vorliegende Version wurde unter 
CP/M-80 mit einem BDS C-Compiler 
compiliert und getestet. Mit geringen 
Änderungen läuft Eliza aber auch unter 
anderen Betriebssystemen und mit 
anderen Compilern. Da möglichst einfa¬ 
che Standardfunktionen verwendet 
werden, ist diese Eliza-Version auch mit 
den kleinsten Compilern zu verarbei¬ 
ten. 


Eliza paßt sich an 


Anpassen müssen Sie die Aufrufe der 
Funktionen »fopen« und »getc« (zum 
Einlesen der Datei). Beim BDS C- 
Compiler erwartet die Funktion »fopen« 
beim Aufruf die Adresse des Dateina¬ 
mens und die Adresse eines genügend 
großen Pufferspeichers. Die Funktion 
»getc« erwartet nur die Adresse des 
Pufferspeichers der gewünschten 
Datei. Die meisten Compiler verarbei¬ 
ten aber andere Strukturen. Wenn Sie 
noch unerfahren sind, sollten Sie sich 
dazu ein einfaches Programm aus Ihrer 
»C-Bibliothek« ansehen, und die darin 
enthaltenen Dateioperationen im 
Eliza.C-Programm nachbauen. In der 
Regel lauten die neuen Versionen dann 
so: 

»...if((fd = fopen(name, "r")) = = 
NULL) (...« 

zum Dateieröffnen und 
»...getc(fd)...« oder... »fgetc(fl)...« 
zum Lesen eines Zeichens aus der 
Datei. Natürlich müssen Sie dann dekla¬ 
rieren »int * fd« und können die Deklarie- 
rung von »puffer[BUFFSIZj« weglas¬ 
sen. 

Sie ersparen sich graue Haare, wenn 
Sie Experimente zur Diskettenverwal¬ 
tung immer auf einer leeren Diskette 
durchführen (mit Sicherheitskopie des 
bearbeiteten Programms auf einer 
anderen Diskette). 

»CPMEOF« ist der Wert, der das 
Erreichen des Dateiendes signalisiert 
und heißt bei manchen Compilern ein¬ 
fach »EOF«, die Konstante »ERROR« 
manchmal kurz »ERR«. Wenn andere 
verwendete Konstanten in Ihrem 
»stdio.h« nicht definiert sind, können Sie 
sie auf einen beliebigen, Ihnen sinnvoll 
erscheinenden Wert festlegen. 

Die Funktion »getns« unterscheidet 


sich von der Standard-Bibliotheksfunk¬ 
tion »gets« nur dadurch, daß beim Einle¬ 
sen von der Tastatur die maximal 
erlaubte Zeilenlänge vorgegeben wer¬ 
den kann. Sie funktioniert allerdings nur 
unter CP/M-80. Wenn Sie keinen 
CP/M-Rechner haben, dürfen Sie den 
Aufruf »getns(eingabe, 77)« ohne 
Schaden einfach durch »gets(ein- 
gabe)« ersetzen. Dann müssen Sie 
eben auf den Komfort der automati¬ 
schen Begrenzung der Zeilenlänge ver¬ 
zichten. Die Standard-Bibliotheks¬ 
funktion »bdos()« heißt manchmal auch 

»_bdos()« oder »UbdosO« und ruft - 

ohne Einflußnahme des C-Systems - 
Betriebssystemfunktionen direkt auf. 

Wenn der Compiler keine »Zeiger auf 
Zeiger« erlaubt, können die Variablen¬ 
deklarationen »char * * name« durch »int 
*name« ersetzt werden. Die Bedeu¬ 
tung und Struktur der Variable ändert 
sich dadurch nicht. In der Funktion 
selbst können doppelte Sternchen 
trotzdem weiterverwendet werden. Die 
Anwendungen dieser Variablen brau¬ 
chen deshalb nicht geändert werden. 
Dasselbe gilt für Zeigerarrays; »char 
* name[]« kann ohne Schaden ebenfalls 
durch »int *name« ersetzt werden. 

Manche Compiler hängen an jeden 
puts-Befehl automatisch einen Zeilen¬ 
vorschub an. Sie merken das sofort an 
den vielen Leerzeilen auf dem Bild¬ 
schirm. In diesem Fall streichen Sie im 
Quelltext einfach die Zeilen mit »\n«. 

Die Konstanten DATEILLAENGE, 
MAXZEILEN und MAXKEYS bestim¬ 


men, wieviele Bytes im Speicher für die 
Datei Eliza.DAT reserviert werden. 
Wenn Sie nur wenig Speicher haben, 
wählen Sie etwas kleinere Zahlen. 

DATEILAENGE bestimmt in etwa die 
maximal erlaubte Dateilänge, hier also 
20000 Byte. MAXZEILEN gibt an, wie¬ 
viele Zeichen die Datei maximal haben 
darf. Beachten Sie jedoch, daß jede 
Zeile zwei Nummern benötigt. Wenn Sie 
also in der Datei 1000 Zeilen erwarten, 
müssen Sie MAXZEILEN auf den Wert 
2000 definieren. MAXKEYS gibt die 
maximale Zahl Schlüsselwortgruppen - 
Antwortgruppenpaare an. Jede Schlüs¬ 
selwortgruppe belegt allerdings drei 
Nummern! Mit einer Definition von 
»#define MAXKEYS 400« sind also 
nur etwa 130 Schlüsselwortgruppen 
erlaubt. 

Das Innenleben 
einer Dame 

Zum Vergleich: Die hier gedruckte 
Grunddatei Eliza.DAT benötigt minde¬ 
stens die Werte DATEILAENGE = 
4500, MAXZEILEN = 520, MAXKEYS 
= 100. Ohne Änderung der Daten kön¬ 
nen Sie also bis zu viermal längere 
Wortschatzdateien verwenden. Eine 
Überschreibung der zulässigen Maxi¬ 
mallängen prüft das Programm aller¬ 
dings nicht. Diese führt ohne Warnung 
zum Systemabsturz. 

Der Hauptaufwand des Programms 
liegt darin, leistungsfähige Routinen zur 
Zeichenkettenverarbeitung zur Verfü- 


/* 

beim Aufruf mit ELIZA' wird automatisch ELIZA.DAT' geladen. Durch 
Aufruf mit 'ELIZA <dateiname>' kann stattdessen eine andere Datei 
verwendet werden. Der korrekte Dateiaufbau und erlaubte Dateilaenge 
wird aber nicht ueberprueft ! 

Die Funktion 'getns' muss an das Betriebssystem angepasst werden ! 

Der Aufruf von 'fopen' in funktion 'einiesen' variiert von Compiler 
zu Compiler ===> unbedingt anpassen !!! 

*/ 

iinclude "stdio.h" 

idefine DATEILAENGE 20000 /* maximale Dateigroesse in Bytes */ 

tdefine MAXZEILEN 2000 /* 2 mal die maximale Zeilenzahl der Datei */ 

♦define MAXKEYS 400 /* 3 mal die maximalen Schluesselwortgruppen */ 

/* 

getns' unterscheidet sich von der Standardbibliotheksfunktion gets nur 
durch die Angabe der maximalen Zeilenlaenge und laueft nur unter CP/M-80. 
In anderen Systemen Funktionsrumpf einfach durch 'gets (eingabe) ersetzen ! 

*/ 

getns (eingabei maxien) 
char eingabe [] ; 
int maxien; 

{ 

char puffer[MAXLINE + 2]; 

*puffer * maxien; /* maximale Laenge in erstes Pufferbyte */ 

bdos(10, puffer); /* Aufruf CP/M - Zeileneditor */ 

puffer[2 + puffer[l]] = NULL; /* tatsaechliche Laenge im 2. Pufferbyte */ 

strepy (eingabe, puffer + 2); /* Text ab zweitem Pufferbyte */ 

) 

/* 

tlen ist tatsaechliche Laenge des Strings text. slen ist Laenge von such, 
'instr' sucht in 'text' ab Position 'start' nach dem String 'such'. Wenn 
gefunden Rueckgabe der Position von 'such'» sonst '0'. 

*/ 

instr (start» text» tlen» such» slen) 

Listing 1. Smalltalk mit Eliza 
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gung zu stellen. Der Aufwand lohnt sich 
aber. Die Routinen »getns«, »instr«, 
»einiesen« und »holeeing« sind sehr uni¬ 
versell und auch für andere Programme 
brauchbar. Am besten fügen Sie sie in 
Ihre Standard-Bibliotheksfunktionen 
ein (kopieren Sie aber vorher Ihre 
Standard-Bibliothek). Da die Funktio¬ 
nen keine globalen Variablen benöti¬ 
gen, ist das ohne weiteres möglich. 

Die Funktion »getns(eingabe,max¬ 
ien)« entspricht der Funktion »gets(ein- 
gabe)« mit zusätzlicher Angabe der Zei¬ 
lenlänge, bei deren Überschreibung die 
Eingabe abgebrochen wird. Intern 
stützt sich die Funktion auf den CP/M- 
Zeileneditor. Deshalb ist sie leider nur 
unter CP/M-80 einsetzbar. 

Die Funktion »einlesen(name,datei, 
descript)« liest die Datei, deren Name 
ab der Adresse »name« gespeichert ist, 
von der Diskette und legt sie im Spei¬ 
cher ab der Anfangsadresse »datei« 
(am besten ein Charakterarray) ab. Ein 
einziges Nullbyte ersetzt mehrfache 
Kombinationen von CR (Wagenrück¬ 
lauf) und LF (Linefeed). Dadurch wird 
jede Zeile in einer eigenen Zeichen¬ 
kette abgelegt, und betriebssystem- 
und compilerabhängige Unterschiede 
zwischen Textdateien werden besei¬ 
tigt. Bei manchen Systemen genügt nur 
LF oder CR, um eine neue Zeile zu si¬ 
gnalisieren, andere Systeme (zum Bei¬ 
spiel CP/M und MS-DOS) benötigen 
beide. Als Nebeneffekt werden bei die¬ 
ser Manipulation alle Leerzeichen ent¬ 
fernt. 

Im Programm Eliza gilt auch ein 
Schrägstrich »/« als Zeilenvorschub¬ 
byte. Bevor Sie diese Funktion in die 
Standardbibliothek aufnehmen, sollten 
Sie eventuell diese Abfrage entfernen. 
Wenn Sie mit mehreren Dateien 
zugleich arbeiten wollen, schließen Sie 
die Datei nach dem Einlesen, um den 
benötigten Diskettenpuffer wieder frei¬ 
zugeben. Sonst wird mit der Zeit das 
System verstopft. 

Als Drittes wird der Funktion ein Inte¬ 
gerfeld übergeben. In dieses werden 
während des Einlesens - analog zur 
Stringverarbeitung in Basic - String- 
descriptoren abgelegt. Jeweils zwei 
aufeinanderfolgende Feldelemente 
enthalten Informationen zum selben 
String. Das erste Feldelement eines 
Paares enthält die Anfangsadresse 
einer Zeile und das zweite dessen 
Länge. Um die Länge einer Zeichen¬ 
kette festzustellen, braucht jetzt also 
nicht mehr die ganze Zeichenkette 
nach einem Nullbyte durchsucht zu 
werden. Das erste nicht mehr benötigte 
Element des Descriptorfeldes wird mit 
Null markiert. Zur Verwaltungsvereinfa¬ 
chung kann im Hauptprogramm das 
Descriptorfeld auch als Array definiert 
werden, dessen Elemente analog zu 


char text [] , such [] ; 
int Start« tlen« slen; 

{ 

int ii ende; 

char *txtp« *txt2p, *suchp« *such2p. 


c; 


if(slen == 1) { /* Sonderfall 1-Zeichenstring (Geschwindigkeit! */ 

c » *such; 

for(txtp = text + Start - 1; *txtp !* NULL; txtp++) 
if (*txtp == c) 

return txtp - text + 1; 
return 0; 

> eise ( 

ende » tlen - slen 1; /* letzte Position» an der such Platz hat */ 
txtp = text + Start - 1; /* Anfang nicht beachten */ 
suchp = such + 1| 

for(i « startj i <- endet i++) { /* moegliche Anfangspos. von suc */ 

if (*such *= *txtp++) /* Kontrollschleife nicht immer nltig */ 

for(such2p = suchp« txt2p = txtpj *such2p »= *txt2p; txt2p++) 
if (*++such2p *= NULL) /* wenn Ende von such, dann o.k */ 
return i; 

> 

return 0; 


Datei von Diskette einiesen; dabei mehrfache Zeilenuebergaenge (CR, LF und 
Leerzeilen) ersetzen durch ein einziges 'NULL'. Zeichen '/' gelten als 
logische Zeilenuebergaenge. Zusaetzlich Aufbau eines 
Stringdescriptorenfeldes: je 2 aufeinader folgende descript-Elemente 
enthalten Adresse und Laenge einer Zeile 


einiesen(name, datei« descript) 
char name [] , datei [] ; 
int descr ipt [] t 
( 

char *dateip, puffer [BUF6IZ] t 
int c, *zeilp, len; 


/* 'puffer' ist Datenpuffer zum Diskio */ 
/* '*zeilp' Zeiger in Descriptorenfeld*/ 


*) 1 


if(fopen(name, puffer) »» ERROR) < 
puts(****** Datei 
puts (name) ; 
puts("' nicht gefunden *****\n"); 
exit () { 

) 

zeilp = descriptt 
*zeilp++ = dateip = datei; 
len * 0; 

while ((c = getc (puffer)) !« CPMEOF) { 
i f (c == ERROR) { 

if(* (dateip - 1) != NULL) < 

♦dateip-M- * NULL; 

*zeilp++ = len; 
zeilp-M-; 


/* Hier Anpassung an verwendeten*/ 
/* Compiler notwendig ! */ 


/* Adresse der ersten Zeile */ 
/* Startwert fuer Zeilenlaenge */ 
/* Lesen, bis EOF auftritt */ 

/* Unerwartetes Dateiende wie */ 
/* Zeilenende behandeln */ 


break; 


) 

if (c 


> 

) eise { 

*dateip++ 
len++; 

> 


«13 II c 

10 || c == '/') { 

/* 

Newlinemarkier . 

der Datei*/ 

if (*(dateip - 

1) ! = NULL) { 

/* 

Leerzeilen nicht 

beachten */ 

*dateip++ 

- NULL; 




*zeilp++ * 

len; 

/* 

Laenge in Stingdescriptor */ 

*zeilp++ * 
len » 0; 

dateip; 

/* 

Adresse naech6te 

Zeile */ 


*dateip = 
*—zeilp 


EOF; 
• 0 ; 


/* normales' Zeichen 


/* Ende der Datei 
/* Auch im Descriptorfeld 


*/ 


Datei fuer Verwendung durch Eliza vorbereiten: Anfangsadressen der 
Begruessungszeile, der Konjugationsregeln« Schluesselwortgruppen bestimmen 
Nach jeder Schluesselwortgruppe folgt ein Satz dazupassender Antworten 


ordnen (descript• servus, konjfirst. keylist) 
int descript[], ‘servus, *konjfirst, keylistH; 
( 

char **zeilp; 
int *keyp, i; 


zeilp = descript; 
while (**zeilp != '$') 
zeilp +» 2; 

♦servus = zeilp + 2; 
zeilp +* 6; 

*konjfirst = zeilp; 
while (**zeilp !* '$') 
zeilp += 2; 
zeilp +» 2; 
keyp » keylist; 
i = 0; 

while (*zeilp !» 0) { 

*keyp++ - zeilp; 
if (i) 

*keyp++ » zeilp; 
i = ! i » 


/* Header - zeilen ueberspringen 
/* '$' ist Zeichen fuer Gruppenende 

/* Begruessungszeile 


/* Descriptor der ersten Konjugation merken */ 
/* Uebrige Konjugationen ueberspringen */ 


/* Korrektur 


/* Adressen der Schluesselgruppen in Feld 
/* 0 * Schluesselwort, 1 = Antwort 
/* bis Dateiende 

/* Start Schluessel/ Antwortgruppe 
/* 1 bedeutet Antwortgruppe 
/* Antwortgruppe doppelt ablegen (ist 
/* noetig 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 












whtle (“zeilp != '$') /* Uebrige Saetze der Gruppe ueberspringen */ 

zeilp 4-= 2; 
zeilp += 2; 

) 

♦keyp = 0; /* Ende der Schluesselworttabelle */ 

} 

/* 

Zeile von der Tastatur holen; dabei Rueckgabe der Zeilenlaenge. ent- 
fernung aller Apostrophe aus Text und Umwandlung in Kleinbuchstaben 

*/ 

holeeing (eingabei einlen) 
char eingabe [] ; 
int ‘einlen; 

< 

char *ziel, ‘quelle. c; 


puts("j "); /* Meldung: Zur Eingabe bereit ♦/ 

getns (eingabe + 1, 77); /♦ Zeile holen, maximal 77 Zeichen */ 

puts("\n"); 

ziel = quelle » eingabe; 

♦ziel « ' /* Leerzeichen voranstellen */ 

while((c = *quelle++) != NULL) /* Zeichen aus Puffer bis Ende erreicht */ 
if(c != '\") /* Wenn kein wieder ablegen, aber ohne Luecken */ 

(c < 'A' || c > 'Z') ? *ziel++ * c : *ziel++ = c + 32; 

*ziel++ * ' '| /* dabei Umwandlung in Kleinbuchstaben */ 

♦ziel++ * ' '; /* 2 Leerzeichen anfuegen */ 

♦ziel = NULL; /* Endemarkierung ♦/ 

♦einlen = ziel - eingabe; /* Laenge berechnen ♦/ 

> 


/* 

Standard-Antwortsatz anhand der Eingabe bestimmen: Durchsuchen der 
Eingabe nach Schluesselwoertern; wenn gefunden, waehlen eines beliebigen 
Antwortsatzes aus der zugehoerigen Gruppe 

*/ 

findantw (antworti antlen, restpos. eingabe. einlen. keylist) 

char ‘antwort [] . eingabe []; 

int keylistn# *antlen. ‘restpos. einlen; 

{ 

char “zeilp; 
int *keyp, pos; 


for(keyp = keylistj *keyp ! = 0; keyp += 3) /* Schleife Wort-gruppe */ 

for (zeilp = ‘keyp; “zeilp ! = zeilp += 2) /* next Schluessel ♦/ 

if (pos = instr(l. eingabe. einlen« ‘zeilp« *(zeilp + 1))) { 

♦restpos = pos + ‘(zeilp +1); /* Gefunden: Rueckgabe Pos. */ 

zeilp = * (keyp -4- 2) } /* hinter dem Schluesselwort */ 

♦antwort = *zeilp++; /* Rueckgabe Adresse Antwort */ 

♦antlen = *zeilp++; /* Rueckgabe Antwortlaenge */ 

if (“zeilp != '$') { /* Beim naechstenmal naachste*/ 

♦(keyp 4 - 2) = zeilp; /* passende Antwort ♦/ 

) eise ( 

*(keyp + 2) = * (keyp + 1) ; /* nach letzter passender ♦/ 


} /♦ wieder bei erster beginnen*/ 

return; 

> 


/* 

Nebensatz konjugieren: In Tabelle konj stehen Paarweise Descriptoren auf 
gegenseitig auszutauschende Worte. z.B. 'your' in 'my' und umgekehrt. 

*/ 

konjugation (neben. nlen . konj) 
char neben [) ; 
int *nlen. *konj; 

< 

char temp [MAXLINE] , “zeilp. ‘ziel, ‘quelle, c; 
int 1« ss. ls. sr, lr. s, r, len; 


len = *nlen; /* Anfangslaenge des Nebensatzes */ 

strcpy(temp, neben); /* wird Schrittweise durch Ergebnsi ersetzt */ 

for(zeilp = konj; “zeilp != '$'; zeilp +* 4) < /* '$'ist Tabellendende*/ 

1=1; /* Startposition zum suchen */ 

ss = ‘zeilp; /* Descriptoren eines Wortpaares holen */ 

ls = * (zeilp 4- 1) ; 

sr = * (zeilp 4-2); /* Adresse und Laenge des 2. Wortes */ 


lr = * (zeilp 4- 3) ; 

while ( (s=instr (1, neben , len , ss , ls)) 4- (r = instr (1, neben , len , sr , lr) )) { 

if (s < r ? s : fr) { /* Test ob 2. Wort in 1. oder umgekehrt */ 

strcpy(temp 4- s - 1, sr) ; /* erstes Wort in temp einfuegen •/ 

strcpy(temp 4 - s - 1 4- lr« neben 4- s - 1 4- ls) ; 

1 = s 4 lr - 1; /* Rueckuebersetzung sperren */ 

len = len + lr - ls; /* neue Laenge der Konjugation */ 

> eise { /* Wenn 2. Wort zuerst gefunden, in 1. umwandeln */ 

strcpy(temp 4- r - 1, ss) ; 

strcpy(temp 4- r - 1 4- ls, neben 4- r - 1 + lr) ; 

1 » r 4 ls - li 
len * len 4- ls -lr; 

> 

strcpy(neben, temp); /* altuelle Version des strings holen */ 

> 

> 

ziel = neben; /* doppelte Leerzeichen am Zeilenanfang entfernen */ 

quelle = ‘(neben 4-1) != ' ' ? neben : neben 4- 1; 

while((c = *quelle+4-) != NULL) /♦ bis zum Zeilenende */ 

Llstlng 1. Smalltalk mit Eliza (Fortsetzung) 


Records in Pascal »structs« aus je zwei 
Integerzahlen bestehen. Diese Mög¬ 
lichkeit bieten allerdings nicht alle Com¬ 
piler. 

Die Funktion »instr(start,text,tlen, 
such.slen)« entspricht der gleichnami¬ 
gen Basic-Funktion. Ab der Position 
»Start« (gezählt wird hier ab 1) wird in der 
Zeichenkette »text« nach dem ersten 
Auftreten der Zeichenkette »such« 
gesucht. Wenn »such« gefunden 
wurde, wird die Position zurückgege¬ 
ben, an der sie in »text« stand. Andern¬ 
falls erhält das Hauptprogramm den 
Wert 0. Die Suche beginnt nicht unbe¬ 
dingt am Anfang von »text«, sondern an 
der Position, die »Start« angibt. Zur 
Geschwindigkeitssteigerung werden 
der Funktion mit »tlen« und »slen« auch 
noch die Längen von Text und Such¬ 
string übergeben. Wenn diese Werte 
unbekannt sind, kann im Aufruf immer 
noch »strlen(text)« und »strlen(such)« 
statt »tlen« und »slen« verwendet wer¬ 
den. 

Da die Routine sehr oft durchlaufen 
wird, spart man hier nicht an der Pro¬ 
grammlänge, sondern lieber an der 
Anzahl der insgesamt auszuführenden 
Operationen. Wenn die Suchzeichen¬ 
kette die Länge 1 hat, wird eine beson¬ 
ders einfache Schleife durchlaufen, die 
nur eine Abfrage auf »Zeichen gefun¬ 
den« enthält. Ist die Suchzeichenkette 
länger als ein Zeichen, wird in der äuße¬ 
ren Schleife zunächst nur geprüft, ob 
das erste Zeichen der Suchzeichen¬ 
kette mit einem Zeichen des Textes 
übereinstimmt. Erst wenn eine Überein¬ 
stimmung auftaucht, wird die Schleife 
aufgebaut, die feststellt, ob auch noch 
die folgenden Zeichen passen. Sobald 
ein Unterschied festgestellt wird, bricht 
die Schleife ab. Eine weitere Beschleu¬ 
nigung ist möglich, wenn Ihr Compiler 
Registervariablen bietet. Sogar »sta- 
tic«-Variablen sind noch wesentlich 
schneller greifbar als »automatic«- 
Variablen. 

Die Funktion »holeeing(eingabe, 
Seinlen)« holt eine Eingabezeile von der 
Tastatur. In der Integer-Variablen »ein¬ 
len« wird die Anzahl der eingegebenen 
Zeichen zurückgemeldet. Die Routine 
gibt vor der Eingabe selbständig ein 
Eingabeprompt (analog zum »A>« in 
CP/M) aus, und beendet die Eingabe 
auf dem Bildschirm durch einen Zeilen¬ 
vorschub. Vor der Rückgabe werden 
alle eingegebenen Zeichen in Klein¬ 
buchstaben umgewandelt und Apo¬ 
strophe »’« entfernt. Vor der Zeile 
stehen jeweils ein und dahinter zwei 
Leerzeichen. 

Die Funktion »konjuglere(&antwort, 
&anlen,konj)« ist die komplizierteste 
Funktion des Programms und eine spe¬ 
zielle Eliza-Funktion. Die vollständige 
Verarbeitung eines Konjugationswort- 












paares entspricht einem Durchlauf der 
for-Schleife. Zunächst werden die Län¬ 
gen und die Adressen der beiden Wör¬ 
ter geholt. Die while-Schleife wird so oft 
passiert, bis feststeht, daß weder das 
eine noch das andere Wort sich im 
Nebensatz befindet. Wenn mindestens 
eines der beiden gefunden wird, wird 
das bearbeitet, das im Nebensatz 
zuerst auftaucht. Der temporäre String 
enthält zunächst eine Kopie des 
Nebensatzes. Der Ersatzstring wird an 
die Stelle des temporären Strings 
geschrieben, an der das zu ersetzende 
Wort steht und der Rest des Nebensat¬ 
zes, der erhalten bleibt, angehängt. 
Danach wird die neue Länge des 
Nebensatzes berechnet und die Start¬ 
position zum Suchen so weitergesetzt, 
daß das eben ausgetauschte Wort nicht 
noch einmal untersucht wird. Zum 
Schluß wird der temporäre String wie¬ 
der auf den Nebensatz kopiert. Nach 
der vollständigen Konjugation werden 
eventuelle doppelte Leerzeichen vor 
und hinter dem Nebensatz sowie alle 
Unterstreichungszeichen entfernt. 
Zurückgegeben wird die neue Länge 
des Nebensatzes. 


Jedem seine Eliza 


Die Funktion »findantw« gibt zu einer 
Eingabe den passenden Standard- 
Antwortsatz und die Position des 
Nebensatzes in der Eingabe zurück. 
Dazu durchsucht die Funktion alle 
Schlüsselwortgruppen nach einer 
Übereinstimmung in der Eingabezeile. 
Für jede Schlüsselwortgruppe sind im 
Feld »konj« drei Einträge reserviert. Der 
erste ist ein Zeiger auf die Descriptoren 
der Schlüsselwörter, der zweite ein Zei¬ 
ger auf den ersten Descriptor der dazu 
passenden Antworten und der dritte ein 
Zeiger auf die aktuelle Antwort. Sobald 
ein Schlüsselwort gefunden wurde, lie¬ 
fert die Funktion die Descriptorinhalte 
der aktuellen Antwort. Danach richtet 
sich der Zeiger auf den descriptor der 
nächsten Antwort. Wenn diese Antwort 
nicht mehr zur Gruppe gehört (Inhalt 
»$«!), wird wieder die erste Antwort zur 
aktuellen. So ist sichergestellt, daß alle 
zum Schlüsselwort passenden Antwor¬ 
ten irgendwann an der Reihe sind. 

Wenn Sie nun weiter interessiert sind, 
können Sie darangehen, das Programm 
auszubauen. Vielleicht statten Sie es 
mit einem Gedächtnis aus, so daß auch, 
wenn gerade kein Schlüsselwort in der 
Eingabe vorkommt, Eliza feststellen 
kann, welches Hauptthema in der Luft 
liegt. Oder Sie testen, wie sich eine 
andere Suchreihenfolge (etwa nach der 
Lage im Text statt nach der Reihenfolge 
in der Datei) auf die Antworten auswirkt. 

(Helmut Tischer/hg) 


if(c != '_') /* alle Unterstriche entfernen (falls bei bestimm-*/ 

*ziel++ = c; /* ten Worten Markierung fuer bereits ersetzt */ 

*ziel = NULL; /* notwendig war */ 

*nlen = ziel - neben; /* neue Zeilenlaenge zurueckgeben */ 


Verlassen der Eingabeschleife durch 'bye'. Ein Stern '*' in einem Antwort- 
statz veranlasst das Einfuegen eines konjugierten Nebensatzes. Der Neben¬ 
satz ist der Teil der Eingabei hinter dem Schluesselwort 

*/ 

main(argc. argv) 
int arge; 
char *argv [] ; 

< 

int descript[MAXZEILEN], *keyp, keylist [MAXKEYS] , 
einlen. anlen. restpos« t, npos, nlen; 

char datei [DATEILAENGE] , eagabe[MAXLINE] , oldeing[MAXLINE] ,neben [MAXLINE] , 
*name. *antwort» **servus, **konji **zeilp; 


if (arge <* 1) { 

name = "ELIZA.DAT"; 

> eise { 

name = argv [1] ; 

) 

einlesen(name, datei» descript); 
ordnen (descripti &servus* &konj. 
for(zeilp * descript; **zeilp != 
puts(*zeilp); 
puts("\n") ; 

) 

puts(*servus) ; 
puts("\n"); 

"oldeing = NULL; 
f o r (; ;) { 


/* Datei einiesen und ordnen 
/* wenn keine Dateinamensangabe: 
/* Standard ist 'ELIZA.DAT' 


keylist); 

'$'; zeilp += 2) < 

/* Headerzeilen anzeigen 


*/ 

*/ 

*/ 


/* Begruesung von Eliza 


/* alte Eingabe zunaechst loeschen */ 

/* Hauptschleife des Programms */ 

do { /* solange abfragen* bis Eingabe unterschiedlich zur letzten */ 

holeeing(eagabe, Äeinlen); 

if(!stremp(eagabe* " bye ")) /* Programmabbruch */ 

exit 0 ; 

if(t = !stremp(eagabe*oldeing)) /* Eingabe war schon mal da */ 

puts ("please don't repeat yourself !\n") ; 

> while(t); 

strepy(oldeing, eagabe); /* neue Eingabe wird alte */ 

findantw(Äantwort, &anlen, Ärestpos, eagabe* einlen* keylist); 
if(npos = instr (1* antwort* anlen* "*", 1)) { /"Nebensatz einfuegen?*/ 

strepy(neben» " "); /* Nebensatz beginnt hinter Schluesselwort */ 

strepy (neben + 1» eagabe ♦ restpos - 1); 

nlen = einlen - restpos + 2; /* Laenge des Nebensatzes */ 

konjugation (neben. &nlen» konj); /* Konjugieren */ 

strepy (eagabe. antwort); /* Standard-Antwort nicht zerstoeren!*/ 
strepy(eagabe + npos - 1. neben);/* Nebensatz in Kopie einfuegen*/ 
strepy (eagabe + npos - 1 + nlen, antwort + npos); 

antwort * eagabe; /* Kopie wird zu neuer Antwort */ 

) 

puts (antwort) ; /* Gesamtantwort auf Bildschirm ausgeben */ 

puts ("\n") i 


Geschafft ! 


Listing 1. Smalltalk mit Eliza (Schluß) 


ELIZA 


- der Computer als Psychoanalytiker 

/ 

Wortschatz: entnommen aus Creative Computing. Juli-August 1977 
Programm: neu entwickelt im M<rz 1986 von Isar-Amper-Soft 

/ 

/ 

Erz(hl' doch Eliza einfach irgendetwas. 

wozu Du gerade Lust hast. 

/ 

/ 

$ 

hi, i am eliza. teil me your problem. 

$ 

are / am / 
were /was / 
you / i / 
your /my / 
ive / youve / 
im / youre / 

$ 

can you 
S 

don't you believe that i can* 
perhaps you would like to be able to* 
you want me to be able to* 

$ 

can i 
$ 

perhaps you don't want to* 
do you want to be able to* 

$ 

you are 
youre 
$ 


Listing 2. Elizas 
Antworten als Datei 














what makes you think i am* 
does it please you to believe i am* 
perhaps you would like to be* 
do you ßometimes wish you whera* 

3 

i dont 
$ 

don't you really* 
why don't you* 
do you wish to be able to* 
does that trouble you? 

$ 

i feel 
$ 

teil me more about such feelings. 
do you often feel* 
do you enjoy feeling* 

5 

why dont you 
$ 

do you really believe i don't* 
perhaps in good time i will* 
do you want me to* 

3 

why cant i 
$ 

do you think you should be able to* 
why can't you* 

3 

are you 
$ 

why are you interestet in whether or not i am* 
whould you prefer if i where not* 
perhaps in your fantasies i am* 

$ 

i cant 
3 

how do you know you can't* 
have you tried? 
perhaps you can now* 

S 

i am 
im / 

$ 

did you come to me because you are* 
how long have you been* 
do you believe it is normal to be* 
do you enjoy being* 

$ 

you / 

$ 

we were discussing you— not me. 
oh, i* 

you're not really talking about me, are you? 

$ 

i want 
$ 

what would it mean to you if you got* 
why do you want* 
suppose you soon got* 
what if you never got* 
i sometimes also want* 

$ 

what 

how 

who 

where 

when 

why 

$ 

why do you ask? 

does that question interest you? 
what answer would please you the most? 
what do you think? 

are such questions in your mind often? 
what is that you really want to know? 
have you asked anyone eise? 
have you asked such questions before? 
what eise comes to mind when you ask that? 


names don't interest me. 

i don't care about names— please go on. 

S 

cause 

$ 

is that the real reason? 
don't any other reasons come to mind? 
doeas that reason explain anything eise? 
what other reasons might there be? 

$ 

sor ry 
$ 

please don't apologize! 
apologies are not necessary. 

what feelings do you have, when you apologize? 
don't be so defensive! 

$ 

dream 

$ 

what does that dream suggest to you? 
do you dream often? 


what persons appear in your dreams? 
are aou disturbed by your dreams? 

$ 

hello 
hi / 

$ 

how do you do ... please state your problem. 

$ 

raaybe 

$ 

you don't seem quite certain. 
why the uncertain tone? 
can't you be more positive? 
you aren't sure? 
don't you know? 

S 

no 

$ 

why no* 

don't say no. its always so negative. 

why not? 

are you sure? 

why no? 

$ 

your 

$ 

why are you concerned about my* 
what about your own* 

$ 

always 

$ 

can't you think of a specific example? 
when? 

what are you thinking of? 
really, always? 

$ 

think 

3 

do you really think so? 
but you are not sure you* 
do you doubt you* 
in what way? 

3 

alike 

3 

what resemblance do you see? 

what does the similarity suggest to you? 

what other Connections do you see? 

could there really be some Connections? 

how? 

you seem quite positive, 
are you sure? 

3 

yes 

3 

i see. 

i understand. 

3 

f riend 

3 

why do you bring up the topic of friends? 

do your friends worry you? 

do your friends pick on you? 

are you sure you have any friends? 

do you impose on your friends? 

perhaps your love for friends worries you. 

3 

Computer 

3 

do Computers worry you? 

are you talkink about me in partikular? 

are you frightened by machines? y 

why do you mention Computers? 

what do you think machines have to do with your Problems? 
don't you think Computers can help people? 
what is it about machines that worries you? 

3 

money 

3 

why do you have problems with money? 

do you think money is everything? 

are you sure that money is the problem? 

3 

eliza 

3 

i think we want to talk about you, not about me. 
whats about me? 

why do you always bring up my name? 

3 

/ 

3 

say, do you have any psychological problems? 
what does that suggest to you? 
i see . 

i'm not sure i understand you fully. 
come elucidate your thoughts. 
can you elaborate on that? 
that iB quite interesting. 

3 

Listing 2. Elizas Antworten als Datei (Schluß) 
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Forth: Programmieren 
in der vierten Dimension 


Eine Programmiersprache, die 
sich in der letzten Zeit ständig 
steigender Beliebheit erfreut, 
ist Forth. Zu Recht, denn Forth 
ist eine äußerst leistungsfähige 
Sprache mit einem ungewöhnli¬ 
chen Konzept. Schwer zu lernen 
ist sie nicht. 

S eit es Computer gibt, ist das zen¬ 
trale Problem die Kommunika¬ 
tionsschnittstelle Mensch/ Com¬ 
puter - oder anders formuliert, wie sage 
ich meinem Computer, was er tun soll? 
Während in der »grauen Vorge¬ 
schichte« der EDV noch bitweise pro¬ 
grammiert werden mußte, erwies sich 
dieses Verfahren im Laufe der Zeit als 
viel zu umständlich. Es entstanden 
höhere Programmiersprachen, die sich 
einer bestimmten Anzahl von Befehls¬ 
worten bedienen. Meist sind diese an 
die menschliche Sprache angelehnt. 
Zu solchen höheren Programmierspra¬ 
chen zählen beispielsweise Fortran, 
Basic, Pascal, C oder Lisp, um nur 
einige zu nennen. 

Betrachtet man sich die Entwicklung 
in der Computertechnik, so stellt man 
fest, daß sich, seitdem das erste Röh¬ 
rengerät in Betrieb ging, bis zum heuti¬ 
gen Tage die Hardware rasant weiter¬ 
entwickelt hat. Anders die Software. 
Hier dominieren noch immer Sprachen 
wie Fortran und Basic, die in ihren 
Ursprüngen in die fünfziger Jahre 
zurückreichen. 

Daß Programmiersprachen für Com¬ 
puter, die Sie heute nur noch im 
Museum bewundern können, nicht 
immer den heutigen Ansprüchen genü¬ 
gen, ist leicht einzusehen. Vor allem 
Basic, das sich mittlerweile zum Stan¬ 
dard für kleine und mittlere Systeme 
entwickelt hat, hinkt den Ansprüchen 
der meisten Programmentwickler weit 
hinterher. Zwar ist es leicht zu erlernen 
und besitzt eine unkomplizierte 
Befehlssyntax, aber strukturierte Pro¬ 
gramme, lokale Variablen und ähnliches 
sind für die meisten Dialekte tabu. 

Was tut also der (Basic-)frustrierte 
Programmierer? Er sucht sich eine 
neue Sprache, die seinen Ansprüchen 
besser gerecht wird. Und da beginnt 
das Dilemma. Welche der vielen Kon¬ 
kurrenten kommt für ihn in Frage? Hier 
ist es hilfreich, sich zu überlegen, was 


die »neue Traumsprache« alles leisten 
soll. Folgende Punkte sind dabei für 
jeden Programmierer wichtig. Die Spra¬ 
che soll: 

- schnell sein, 

- strukturiertes Programmieren ermög¬ 
lichen, 

- auf andere Computertypen übertrag¬ 
bar sein, 

- die Stärken des eigenen Geräts 
unterstützen, 

- erweiterbar sein, 

- möglichst wenig des kostbaren RAM- 
Speichers belegen, 

- relativ leicht zu erlernen und zu ver¬ 
stehen sein. 

Wenn das auch Ihre Vorstellungen 
einer nahezu idealen Programmierspra¬ 
che sind, dann brauchen Sie nicht län¬ 
ger zu suchen. Denn solch eine Traum¬ 
sprache gibt es schon - Forth. 

Zwar ist auch Forth nicht die Program¬ 
miersprache schlechthin, doch weist 
sie zumindest die oben aufgeführten 
Vorteile (und noch einige mehr) auf. 
Was es damit tatsächlich auf sich hat, 
darüber klären Sie die nächsten Seiten 
auf. Sie ersetzen zwar kein Handbuch 
von Forth (es können auf so wenig Sei¬ 
ten niemals alle Anweisungen erklärt 
werden), aber wir wollen versuchen, 
Ihnen ein Gefühl für den typischen Cha¬ 
rakter von Förth zu geben. Vielleicht 
kommen Sie auf den Geschmack, sich 
mit dieser faszinierenden Sprache 
näher zu befassen. 


Forth, Sprache für 
den Weltraum 


Förth wurde Ende der sechziger 
Jahre entwickelt und ursprünglich zur 
Steuerung und Auswertung der Meßda¬ 
ten einer Sternwarte eingesetzt. Schon 
damals stand die Zukunft von Förth im 
wahrsten Sinne des Wortes in den Ster¬ 
nen, denn die amerikanische Weltraum¬ 
behörde NASA wählte Förth als 
Sprache für zukünftige Satellitenpro¬ 
gramme. Doch bevor es dazu kommen 
sollte, blieb es bis Ende der siebziger 
Jahre sehr ruhig um diese Sprache. 
1977 gründete eine nichtkommerzielle 
Gruppe von Programmierern die »Förth 
Interest Group« (FIG) und machte Förth 
damit einer breiteren Öffentlichkeit 
zugänglich. Es entstand als Standard 


FIG-Förth, aus dem sich zwei Jahre spä¬ 
ter der Förth 79-Standard entwickelte. 
Beide Versionen sind heute im Heim- 
und Personal Computerbereich verbrei¬ 
tet. Der Unterschied dieser Dialekte ist 
nur gering, so daß sich FIG-Förth- 
Programme leicht in den 79-Standard 
umsetzen lassen - und umgekehrt. 

In unserer Einführung wollen wir im 
wesentlichen das ältere FIG-Förth 
benutzen. Etwaige Abweichungen zum 
79-Standard bleiben aber auch nicht 
unerwähnt. 

Mittlerweile wird für fast jedes Com¬ 
putersystem eine Förth-Version ange- 
boten. Da die Sprache kaum Speicher¬ 
platz beansprucht, ist sie ideal für klei¬ 
nere Systeme geeignet. Im allgemeinen 
benötigt Förth nicht mehr als 10 KByte 
RAM-Bereich. Je nachdem, welche 
Extras zusätzlich implementiert sind, 
kann sich dieser Bereich natürlich erhö¬ 
hen. 

Förth kommt im Prinzip ohne Massen¬ 
speicher aus, weshalb sich ein Disket¬ 
tenlaufwerk erübrigt. Da beim Heim¬ 
computer die Programme nicht im ROM 
vorliegen, braucht man aber unbedingt 
einen Kassettenrecorder. Dennoch, 
wie bei allen Sprachen ist auch unter 
Förth der Gebrauch eines Disketten¬ 
laufwerks angenehmer als ein Datenre¬ 
corder. Auch kommen einige Stärken 
von Förth nur mit einem Laufwerk zum 
Tragen. 

Nachdem Sie Ihre Förth-Version gela¬ 
den und gestartet haben, erscheint, 
zusammen mit einer Mitteilung über die 
Herkunft des Systems, der gleiche Cur¬ 
sor, den Sis sicher schon von Basic her 
bestens kennen. 

Zwei verschiedene Wege gibt es, um 
sich mit der neuen Sprache vertraut zu 
machen. Entweder Sie starten einen 
»Trockenkurs« und studieren das Hand¬ 
buch in allen Einzelheiten, oder aber Sie 
legen alle Hemmungen ab, geben 
irgendetwas ein und warten, was der 
Computer machen wird. Entscheiden 
Sie sich für die zweite Art, so werden 
Sie sehr oft eine nüchterne Fehlermel¬ 
dung auf dem Bildschirm vorfinden. 
Diese besteht entweder aus einem 
Kommentar wie zum Beispiel »CANT 
FIND« oder aus einer Ziffer, die die Feh¬ 
lerart anzeigt. Manchmal wird der Com¬ 
puter aber auch mit einem lapidaren 
»OK« antworten. Immer dann haben Sie 
eine Forth-Anweisung richtig benutzt. 

Für den Fall, daß Sie aber den Wort- 









schätz ohne langes Ausprobieren ken¬ 
nenlernen wollen, ist in fast jedem 
Forth-Compiler eine Anweisung vorge¬ 
sehen, die alle Befehle auf dem Bild¬ 
schirm ausgibt. »VLIST« oder »WORDS« 
sind zwei häufig gebrauchte Kennworte 
für diesen Befehl. Dieses Wörterbuch 
zeigt sämtliche Anweisungen, die Ihr 
Compiler versteht. Ganz egal, ob es 
sich um vor- oder selbstdefinierte 
Befehle handelt. 


Erste 

Kontaktaufnahme 


Unter Förth müssen alle Eingaben mit 
der RETURN- (oder ENTER-) Taste 
abgeschlossen werden. Die eingege¬ 
benen Worte lassen sich in drei Grup¬ 
pen unterscheiden - in »Nonsens«- 
Worte, die der Compiler mit einer Feh¬ 
lermeldung quittiert, in Anweisungen 
oder in Zahlen. Denn auch wenn Sie nur 
eine Zahl eingeben, reagiert der Compi¬ 
ler darauf mit »OK«, das heißt, er akzep¬ 
tiert den Befehl ohne Probleme. Was ist 
nun mit dieser Zahl geschehen? 

Bei nahezu allen Operationen in Förth 
spielt der Stack eine zentrale Rolle. Der 
Stack (zu deutsch Stapelspeicher) ist 
nichts anders als ein kleiner Speicher¬ 
bereich, der nach einem besonderen 
Prinzip verwaltet wird. Jede Zahlenein¬ 
gabe von der Tastatur, die mit RETURN 
abschließt, landet zuerst einmal im »Top 
Of Stack« (TOS), also in der obersten 
Speicherzelle (eine Speicherzelle ist 
ein 16-Bit-Register) des Stacks. 

Jede neu hinzukommende Zahlen¬ 


eingabe wird ebenfalls dort abgelegt. 
Alle bereits vorhandenen Zahlen rut¬ 
schen um eine Position nach unten. Bei 
der Ausgabe vom Stack kommt als 
erstes die Zahl im TOS an die Reihe. Da 
es sich hierbei immer um die zuletzt ein¬ 
gegebene Zahl handelt, wird das Ganze 
als »Zuletzt rein - zuerst raus«-Prinzip 
bezeichnet. Im Fachenglisch heißt das 
dann »Last In - First Out«-Prinzip (kurz 
LIFO). 

Alle Operationen, die den Stack be¬ 
einflussen, arbeiten nach diesem Ver¬ 
fahren. Deswegen sollten Sie sich 


damit gut vertraut machen. Bereitet 
Ihnen die Arbeitsweise noch Schwierig¬ 
keiten, dann hilft Ihnen vielleicht folgen¬ 
der Vergleich weiter. 

Stellen Sie sich einen Schreibtisch 
vor, auf dem ein Stoß Papier liegt. Legen 
Sie ein Blatt auf dem Stoß ab, so landet 
es auf der obersten Stelle. Das nächste 
Blatt liegt darüber und an oberster Posi¬ 
tion befindet sich damit immer das Blatt, 
das zuletzt abgelegt wurde. Wollen Sie 
nun den Papierstoß abarbeiten, dann 
nehmen Sie zuerst das oberste Blatt 
weg. Und dieses ist das zuletzt hinge¬ 
legte. Das schon am längsten auf dem 
Tisch liegende Papier ist das letzte 
beim Abarbeiten. Und so funktioniert 
auch der Stack in Ihrem Computer. 

Nach soviel Theorie zurück zu Förth. 
Wir wissen nun, wie der Stack verwaltet 
wird und wollen ausprobieren, wie wir 
drei Zahlen auf den Stack legen und 
wieder herunterholen können. Wir 
geben einfach folgende Zeile ein: 

14 9 -2 

Zwischen zwei Zahlen muß immer ein 
Leerzeichen stehen und die Zeile mit 
der RETURN-Taste beendet werden. 
Der Computer quittiert die Eingabe mit 
»OK«. Was ist nun aber auf dem Stack 
passiert? Dazu betrachten wir Bild 1, 
das uns zuerst den »leeren« Stack und 
zum Schluß den »vollen« Stack zeigt. 
Zuerst wurde die 14 im TOS abgelegt, 
dann die 9 (gleichzeitig wandert die 14 
um eins nach unten) und zum Schluß 
die -2 (die andern beiden Werte wan¬ 
dern nach unten). 

Um diese Zahlen wieder vom Stack 
auszugeben, lernen Sie nun Ihr erstes 
Förth-Wort kennen (Befehle, bezie- 


Forth-Steckbrief 


- Forth wurde Ende der sechziger 
Jahre in den USA entwickelt. 

- Förth ist eine Compilersprache, mit 
der Sie aber auch interaktiv arbeiten 
können. 

- Forth ist sehr schnell. Vergleich¬ 
bare Programme brauchen in Basic 
bis zu 20mal mehr Zeit als in Forth. 

- Der Befehlssatz in Forth besteht 
aus 200 bis 300 Wörtern. Ein Wort 
läßt sich mit einem Unterprogramm 
in Basic oder besser mit einer Proze¬ 
dur in Pascal vergleichen. Der 
Benutzer kann diesen Wortschatz 
um eigene Definitionen erweitern. 
Diese neuen Wörter sind im 
Gebrauch mit den Standard-Förth- 
Wörtern vollkommen identisch. 

- Bei Förth-Wörtern handelt es sich 
entweder um Secondaries, die wie¬ 
derum aus Forth-Wörtern aufgebaut 


sind, oder um Primitives, welche in 
Maschinencode definiert sind. 

- Forth rechnet nur mit Integerzahlen 
von 16 oder 32 Bit Breite. 

- Förth belegt in der Regel zwischen 
8 und 12 KByte Speicherplatz 
(hängt von dem Umfang des Wort¬ 
schatzes ab). 

- Forth verwaltet den Diskettenspei¬ 
cher virtuell, das heißt RAM- und 
Diskettenspeicher sind formell 
gleichwertig. 

- Forth ist weitgehend standardi¬ 
siert, das heißt alle für Heim- und 
Personal Computer angebotenen 
Versionen leiten sich vom FIG-Förth 
ab. FIG-Förth stammt von der Forth 
Interest Group, einer nichtkommer¬ 
ziellen Vereinigung von Programmie¬ 
rer. 

- Die Rechenoperationen werden in 
Förth nach den Regeln der Umge¬ 
kehrten Polnischen Notation (UPN) 
durchgeführt. 
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hungsweise Anweisungen, werden in 
Förth als Wort bezeichnet). Es handelt 
sich um einen unscheinbaren Punkt. 
Durch ».« wird die Zahl im TOS (Top Of 
Stack) auf den Bildschirm ausgegeben. 

. -2 ok 

Nach der Eingabe des Punktes und 
der RETURN-Taste reagiert der Compu¬ 
ter mit der Meldung »-2 OK«. Wir wollen 
im folgenden immer die Zeile so ange¬ 
ben, wie Sie nach der Bearbeitung aus¬ 
sieht. Eingeben dürfen Sie natürlich nur 
die Forth-Wörter (in diesem Falle also 
nur den Punkt). Sie können natürlich 
auch mehrere Zahlen auf einmal ausge¬ 
ben lassen: 

. . 9 14 OK 

Der nächste Punkt veranlaßt den 
Computer zu einer Fehlermeldung, da 
der Stack leer ist: 

. 0 EMPTY STACK 

Bild 2 zeigt Ihnen, wie sich der Stack 
bei der Ausgabe der Zahlen verändert. 
Sie sehen dabei, daß jede Zahl, die 
durch ».« auf dem Bildschirm erscheint, 
gleichzeitig vom Stack verschwindet 
und sich alle anderen Zahlen um eine 
Position nach oben bewegen. 

Bevor wir zu unseren ersten Rechen¬ 
aufgaben in Förth kommen, müssen wir 


• (n -) 

-gibt die Zahl im TOS 
(oberste Zahl im 

Stack) aus 

. »Text« 

-gibt die Symbole zwi¬ 
schen den Anfüh¬ 
rungszeichen als Text 
aus 

CR 

-bewirkt einen Zeilen¬ 
vorschub 


Tabelle. Ihre ersten Wörter In Förth 


uns noch einmal ganz genau mit der 
Syntax von Forth auseinandersetzen. 
Befehlswörter dürfen in Förth beliebig in 
einer Zeile stehen. Allerdings muß 
immer mindestens ein Leerzeichen 
zwei Anweisungen trennen. Anders als 
beispielsweise in Basic, wo es einen 
festgelegten, im Grunde nicht mehr 
erweiterbaren Befehlssatz gibt, kann 
jedermann Förth um neue Befehle 
bereichern. Da dabei jede Zeichenkom¬ 
bination als Wortname erlaubt ist, stel¬ 
len die Leerzeichen für den Textinter¬ 
preter die einzige Möglichkeit dar, die 
Wörter voneinander zu unterscheiden. 

Auch Texte lassen sich unter Förth 
auf den Bildschirm ausgeben. Dazu 


dient ein zweites Wort: »."«. Ein Bei¬ 
spiel: 

." OSTERHASE * OSTERHASE OK 

Wenn Sie »."OSTERHASE"« mit 
RETURN an den Computer abschik- 
ken, dann gibt er den Text »OSTER¬ 
HASE« zurück. Denken Sie an die rich¬ 
tige Verteilung der Leerzeichen, da 
sonst der Computer Sie nicht verste¬ 
hen kann. 

Mit solch einer Textausgabe können 
wir auch unsere Stack-Ausgabe kom¬ 
fortabler gestalten: 

4 OK 

CR ." TOS : " . 

TOS : 4 OK 

Wenn Sie die 4 und die zweite Zeile 
eingegeben haben, dann antwortet der 
Computer mit der dritten. Das neue 
Wort »CR« bewirkt einen Zeilenvor¬ 
schub. Bei manchen Compilern funktio¬ 
niert dieser letzte Befehl nur in Wörtern. 
Wie Sie solche definieren, erfahren Sie 
später. Manchmal darf »."..."« durch 
».(...)« ersetzt werden. Näheres finden 
Sie in Ihrem Handbuch. Die Wörter des 
ersten Teils der Einführung in Förth faßt 
die Tabelle noch einmal zusammen. 

(Peter Monadjemi/hg) 


UPN-Rechnen 
in der umgekehrten 
Polnischen Notarion 


Förth zeigt einige unkonventio¬ 
nelle Lösungswege, Computer¬ 
programme zu erzeugen. Beson¬ 
ders das Rechnen in Forth unter¬ 
scheidet sich von fast allen 
anderen Computersprachen. 

D er Stack ist das wichtigste 
Hilfsmittel zum Rechnen in 
Förth. Dazu stehen verschie¬ 
dene Operatoren und Befehlswörter 
zur Verfügung. Allerdings muß man bei 
dem Jonglieren mit Zahlen in Förth 
einige spezifische Besonderheiten 
beachten: 

- Alle Operationen werden nach den 
Regeln der Umgekehrten Polnischen 
Notation (UPN) durchgeführt. 

- Förth rechnet nur mit Integerzahlen 
(ganze Zahlen). 

- Forth kennt in der Standard-Version 
nur die vier Grundrechenarten. 


UPN ist eine Vorschrift für die Durch¬ 
führung von Rechenoperationen unter 
Einbeziehung eines oder mehrerer 
Stacks. Nehmen Sie als Beispiel die 
Operation »33*4=« (hier noch in der 
Basic-typischen Schreibweise). Die 
UPN-Schreibweise bereitet die Be¬ 
fehlszeile so auf, wie sie der Computer 
am leichtesten bearbeiten kann. Das 
bedeutet, daß zuerst die Operanden 
(Zahlen) und dann die Operatoren 
(Rechenzeichen) eingegeben werden. 
Unser Beispiel sieht dann wie folgt aus: 
33 4 * 

Das Ergebnis befindet sich nach der 
Berechnung im Stack - und zwar im 
TOS (Top of Stack) - und kann dort wei¬ 
terverarbeitet werden. Der Vorteil der 
UPN gegenüber der Infix-Notation (das 
ist die Basic-übliche Eingabe von 
Berechnungen) macht sich erst bei grö¬ 
ßeren Ausdrücken bemerkbar. Die Ein¬ 
gabe in Infix-Schreibweise: 
(2+7)/(4*(8-3))= 


braucht bedeutend mehr Platz als die 
UPN-Schreibweise: 

27 + 483-*/ 

Sie sehen, daß die UPN weder Klam¬ 
mern noch Gleichheitszeichen benö¬ 
tigt. Dadurch ergibt sich neben einer 
kürzeren, Speicherplatz sparenden 
Schreibweise auch ein erheblicher 
Geschwindigkeitsvorteil. Die Klammern 
erfordern vom Computer nämlich immer 
ein Vorausschauen, »wo wird diese wie¬ 
der geschlossen«. Bei der UPN hinge¬ 
gen werden bei jedem Rechenoperator 
die beiden obersten Werte im Stack mit¬ 
einander verknüpft und deren Ergebnis 
direkt im TOS abgelegt. Für unsere Auf¬ 
gabe bedeutet das, daß mit Eingabe 
des Pluszeichens die 2 und 7 addiert 
und das Ergebnis 9 in den TOS gelegt 
wird. Die Eingabe der drei Zahlen 4, 8 
und 3 bewirkt, daß die 9 an der vierten 
Stelle von oben liegt. Das Minuszei¬ 
chen berechnet 8 minus 3, legt die 5 in 
den TOS und zieht die beiden anderen 
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Werte nach oben. Das Malzeichen mul¬ 
tipliziert die 5 mit der 4, legt das Ergeb¬ 
nis ab und schon steht die 9 direkt unter 
der 20. Das Divisionszeichen besorgt 
den Rest, so daß zum Schluß das 
Ergebnis der Rechnung im TOS steht. 
Die U PN ist also nicht etwa ein exoti¬ 
sches Rechenverfahren, sondern die 
»natürlichste« und effektivste Methode 
für einen Computer, Rechenoperatio¬ 
nen zu verarbeiten. 

Nun wollen wir uns aber damit befas¬ 
sen, wie sich der Stack verändert, wenn 
wir die Grundrechenarten bearbeiten 
lassen. Die Addition löst das Zeichen 
»+«aus. 

4 5 + OK 

Was ist nun auf dem Stack gesche¬ 
hen? Dazu betrachten wir uns Bild 1. Sie 
sehen, daß sich vor dem Aufruf von »+« 
die beiden zu addierenden Zahlen an 
den beiden obersten Stellen des 
Stacks befinden müssen. Nach der 
Addition wird das Ergebnis im TOS 
abgelegt. Von dort kann man es mit ».« 
leicht auf den Bildschirm ausgeben. 

. 9 OK 

Die 9 zeigt an, daß das Ergebnis tat¬ 
sächlich im TOS gespeichert war. Die 
Subtraktion erfolgt analog: 

16 12 - . 4 OK 

Auch hier müssen sich die beiden 
Zahlen zuerst auf dem Stack befinden. 
»-«zieht die Zahl im TOS von der darun¬ 
terliegenden ab (siehe Bild 2) und »/« 
ruft die Division auf (Bild 3): 

20 2 /, 10 OK 

Bis dahin ist die Welt noch in Ord¬ 
nung. Doch das nächste Beispiel führt 
zu einem unerwarteten Ergebnis: 

21 2 /. 10 OK 

Hier kommt das schon erwähnte Feh¬ 
len von Real-(Fließkomma-)zahlen voll 
zum Tragen. Aber keine Bange: Förth 
bietet verschiedene Wege, auch belie¬ 
big genaue Ergebnisse zu erhalten. Mit 
dem Operator »/« bekommen Sie also 
nur die Vorkommazahl. Um den ganz¬ 
zahligen Rest dieser Rechenoperation 
zu erhalten, gibt es unter Förth einen 
Befehl, den die meisten Basic-Dialekte 
nicht kennen. 

21 2 MOD . 1 OK 
23 4 MOD . 3 OK 

21 geteilt durch 2 gibt 10, Rest 1 und 
23 geteilt durch 4 gibt 5, Rest 3. Die 



Bild 1. So verändert sich der Stack 
bei der Addition 


ganzzahligen Restbeträge werden bei 
diesem Wort in den TOS gelegt. 

Die Multiplikation aktiviert »*«. 

20 20 * . 400 OK 
Allerdings muß man auch hier aufpas¬ 
sen, nicht den erlaubten Bereich zu ver¬ 
lassen. So ergibt 
200 200 * . -25534 OK 


ein falsches Ergebnis (beziehungs¬ 
weise eine Fehlermeldung). Diesmal 
liegt es allerdings nicht an den Integer¬ 
zahlen, sondern an der Tatsache, daß 
Förth intern nur mit 16 Bit breiten Zahlen 
rechnet. Da das 16. Bit das Vorzeichen 
enthält, ist damit der Rechenbereich auf 
die Zahlen zwischen -32768 und + 
32767 beschränkt-, zugegebenerma¬ 
ßen ein kleiner Darstellungsbereich. 
Doch auch hier stehen dem Program¬ 
mierer alle Türen offen. Theoretisch 
können Sie mit beliebig breiten Zahlen 
arbeiten. Von Haus aus erlaubt Förth, 
entweder auf das Vorzeichen zu ver¬ 
zichten oder aber mit 32 Bit breiten 
Zahlen zu arbeiten. Beide Fälle setzen 
allerdings spezielle Wörter voraus. So 
erhalten Sie bei unserer »verunglück¬ 
ten« Multiplikation mit 
200 200 * U. 40000 OK 
doch noch ein vernünftiges Ergebnis. 
Mit »U.« wird die Zahl, die im TOS steht, 
als vorzeichenlose Zahl auf dem Bild¬ 
schirm ausgegeben. 



Bild 2. So verändert sich der Stack 
bei der Subtraktion 


Das Rechnen mit 32-Bit-Zahlen erfor¬ 
dert spezielle Wörter. Diese erkennt 
man fast immer an einem »D« oder einer 
»2«, mit der der eigentliche Befehl 
beginnt. Damit der Textinterpreter solch 
eine doppelt lange Zahl korrekt erkennt, 
muß diese mit einem Dezimalpunkt ein¬ 
gegeben werden. Allerdings spielt es 


dabei keine Rolle, an welcher Stelle die¬ 
ser Punkt steht. 

222.222 OK 
44.4444 0K 
D+ OK 

Durch »D+« werden die beiden dop¬ 
pelt langen Zahlen im Stack addiert und 
das Ergebnis im TOS abgelegt. Wie 
bekommen Sie nun diesen Wert auf den 
Bildschirm? Sicher nicht mit ».«. Denn 
damit erhalten Sie nur die niederwerti¬ 
gen 16 Bit der 32-Bit-Zahl ausgegeben. 
Auch hier ist ein besonderes Ausgabe¬ 
wort notwendig, nämlich »D.«. 

D. 666666 OK 

Bislang wurde die Anordung der Zah¬ 
len auf dem Stack durch die Reihen¬ 
folge der Eingabe festgelegt. Sehr oft 
besteht jedoch die Notwendigkeit, 
diese Reihenfolge zu verändern, bezie¬ 
hungsweise einzelne Zahlen auf dem 
Stack zu kopieren. Auch dazu stehen in 
Forth eine Reihe von Befehlen zur Ver¬ 
fügung. Die wichtigsten erklären wir 
Ihnen im folgenden. 



Bild 3. So verändert sich der Stack 
bei der Division 














Die Erklärung der Darstellung der Befehle finden Sie im letzten Kapitel. 

+ (nl n2 bis n3) 

- addiert die beiden obersten Zahlen des Stacks 
und legt das Ergebnis im TOS ab 

- (nl n2 bis n3) 

- subtrahiert n2 von nl und legt das Ergebnis im 

TOS ab 

/ (nl n2 bis n3) 

- dividiert nl durch n2 und legt das Ergebnis im 

TOS ab 

MOD (nl n2 bis n3) 

- dividiert nl durch n2 und legt den ganzzahlligen 
Rest im TOS ab 

c@ (a bis n) 

- holt ein Byte und speichert es im TOS 

? (a bis n)* 

- wie »c@«, aber mit Ausgabe auf dem Bild¬ 
schirm 

! (n a usw.) 

- speichert Zahl in der Adresse a, die im TOS 
angegeben ist 


Tabelle. Die in diesem Abschnitt neu vorgestellten Befehle und deren 
»Geschwister« 


34 DUP OK 
. . 34 34 OK 

»DUP« (Bild 4) kopiert die Zahl im TOS 
und verschiebt die darunterliegenden 
um eins nach unten. Die Operation ist 
beispielsweise immer dann notwendig, 
wenn eine Zahl im TOS zwar ausgege¬ 
ben, mit ihr aber noch weiter gerechnet 
werden soll. 

67 88 SWAP OK 
. . 67 88 OK 

»SWAP« (Bild 5) vertauscht die bei¬ 
den obersten Zahlen im Stack. Norma¬ 
lerweise muß ja die zuletzt eingege¬ 
bene Zahl als erste wieder auf dem Bild¬ 
schirm erscheinen (LIFO-Prinzip: Last 
in first out). Das wäre hier die 88 gewe¬ 
sen. »SWAP« hat nun aber die beiden 
obersten Werte im Stack vertauscht, so 
daß die 67 im TOS stand und damit auch 
zuerst ausgegeben wurde. 

12 33 65 ROT OK 
... 12 65 33 OK 

»ROT« läßt die obersten drei Zahlen im 
Stack einmal gegen den Uhrzeigersinn 
rotieren. Wie sich dabei der Stack ver¬ 
ändert, zeigt am besten Bild 6. Durch 
»ROT« wird die Zahl von der dritten 
Stelle im Stack ins TOS gebracht, wäh¬ 
rend die beiden darüberliegenden 
Werte um eine Position nach unten wan¬ 
dern. Alle Befehle (und noch einige 
mehr) finden Sie in der Tabelle noch ein¬ 
mal zusammengefaßt. 

Normalerweise werden alle Ein- und 
Ausgaben von Zahlen im Dezimalsy¬ 
stem durchgeführt. Forth ist jedoch in 
der Lage, beispielsweise die Zahlen in 
nahezu jedem System auszugeben. 
Dazu ist lediglich der Inhalt einer einzi¬ 
gen User-Variablen mit dem Namen 
»BASE« zu ändern. Bei den User- 
Variablen handelt es sich um Speicher- 




Bild 5. »SWAP« vertauscht den Wert 
im TOS mit dem darunterliegenden 
Stackwert 


werte, die wichtige Systemgrößen bein¬ 
halten. So enthält zum Beispiel »SO« die 
Adresse des Stacks, »DP« den Beginn 
des Wörterbuches und »BASE« den 
Wert der aktuellen Zahlenbasis. 

Der Aufruf einer User-Variablen holt 
jedoch in Förth nicht den Wert, sondern 
die Speicheradresse, unter der der 
Wert zu finden ist. Um den aktuellen 
Wert von »BASE« zu erfahren, brauchen 
wir ein Wort (Anweisung) vom Typ: »Gib 
den Inhalt der Speicherzelle mit der 
Adresse addr aus«. Solch ein Wort stellt 
»c@« (manchmal auch »?«) zur Verfü¬ 
gung. 

BASE C . 10 OK 

Diese Anweisung bringt den aktuel¬ 
len Wert der User-Variablen BASE auf 
den Bildschirm. Um den Wert zu 
ändern, benötigen wir ein Wort vom 
Typ: »Lege den Wert a unter der 
Adresse addr ab«. Dieses Wort lautet 
»I«. Sowohl der Wert »a« als auch die 
Adresse »addr« müssen sich auf dem 
Stack befinden - und zwar in der richti¬ 
gen Reihenfolge. Nach der Eingabe 
muß die Adresse (in diesem Fall BASE) 
im TOS stehen. 

63 2 BASE ! OK 

. 111111 OK 

Die Zahlen 63 und 2 werden auf den 
Stack gelegt, dann die Adresse BASE 
im TOS gespeichert. Das Wort »!« 
ändert die Ausgabefunktion auf Dual- 



Bild 6. »ROT« bringt den dritthöchsten 
Wert in den TOS und schiebt die beiden 
anderen Werte um eins weiter nach unten 


zahlen. Mit ».« erscheint dann die 63 in 
dualer Form (111111) auf dem Bild¬ 
schirm. Da wir gerade auf Dualzahlen 
umgeschaltet haben, muß jetzt auch die 
Eingabe in dualer Form erfolgen. 

9 23 ? CAN'T FIND 
Die Zahlen 9 und 23 sind keine Dual¬ 
zahlen und deshalb gibt der Compiler 
eine Fehlermeldung (hier »CANT 
FIND«) zurück. Mit 
11 BASE ! OK 

schalten wir auf die Zahlenbasis »3« um 
(11 dual ist 3 dez). Da es nun etwas 
kompliziert ist, die richtige Ziffernfolge 
für Dezimalzahlen zu finden (10 dez = 
1010 dual = 101 zur Basis 3), gibt es 
unter Förth das Wort »DECIMAL«, das 
immer wieder zum vertrauten Dezimal¬ 
system zurückführt. 

DECIMAL OK 

Ein kleines Beispiel zeigt eine beein¬ 
druckende Lösung eines Problems, das 
in vielen anderen Sprachen nur bedeu¬ 
tend umständlicher gelöst werden 
kann. 

: DUAL 2 BASE ! ; OK 
: DOPPEL 

20 0 DO CR I DECIMAL . 

I DUAL . LOOP ; OK 

Wir haben zuerst das Wort »DUAL« 
zur Umschaltung auf Dualzahlen defi¬ 
niert und dann die Anweisung »DOP¬ 
PEL«. Wie man Wörter bestimmt und 
auch wie die Schleife »DO ... LOOP« 
arbeitet, finden Sie in den folgenden 
Kapiteln. Hier sollen Sie das Programm 
nur eintippen und starten. Nach dem 
Aufruf von »DOPPEL« ergibt sich auf 
dem Bildschirm folgendes Bild: 

0 0 
11 
2 10 

3 11 

4 100 

5 101 

6 110 

(Peter Monadjemi/hg) 
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Forth lernt dazu 

Einen der größten Vorteile von Forth macht der sehr einfache 
Ausbau seines Wortschatzes aus. Jede Forth-Version kann sein 
Benutzer mit neuen, selbstdefinierten Anweisungen erweitern. 


A nders als beispielsweise in 
Basic bestehen Förth-Pro¬ 
gramme nicht aus einer be¬ 
stimmten Anzahl von Programmzeilen, 
sondern aus Wörtern. Jedes diese Wör¬ 
ter kann weitere beinhalten, die wie¬ 
derum neue Wörter enthalten dürfen 
und so weiter. Dieser extrem modulare 
Aufbau führt dazu, daß das eigentliche 
Hauptprogramm letzten Endes aus nur 
einem einzigen Wort bestehen kann. 

Ein solches »Forth-Wort« läßt sich mit 
einem Unterprogramm in Basic oder 
einer Prozedur in Pascal vergleichen. 
Es gibt verschiedene Wege, sich selbst 
solch eine Anweisung zu definieren. 
Die einfachste ist die sogenannte 
»Colondefinition«, bei der das Wort wei¬ 
tere Wörter enthalten darf, die nach Auf¬ 
ruf des neuen Worts ausgeführt wer¬ 
den. Handelt es sich bei diesen Wörtern 
wiederum um Förth-Wörter, dann 
spricht man von SECUNDARIEs. Ein 
Wort, das direkt Maschinencode- 
Routinen aufruft, bezeichnet man als 
PRIMITIVE. Die meisten Wörter des 
Grundwortschatzes von Förth sind 
SECUNDARIEs. 

Wie kann man nun solch ein Wort 
selbst definieren? 

Jede Wortdefinition eines SECUN¬ 
DARIEs leitet ein unscheinbarer Dop¬ 
pelpunkt »:« ein. Er bewirkt unter ande¬ 
rem, daß das System in den »Compile 
mode« umschaltet. Das hat zur Folge, 
daß alle nun folgenden Anweisungen 
nicht mehr direkt ausgeführt, sondern 
in das Wörterbuch eingetragen werden. 

Unter einem Wörterbuch (englisch 
Dictionary) wird in Förth ein Speicher¬ 
bereich verstanden, der den Wort¬ 
schatz der betreffenden Version bein¬ 
haltet. Jede neue Wortdefinition wird 
nun auch in diesem Wörterbuch ver¬ 
zeichnet. Das Dictionary selbst ist in 
sogenannte Vokabulare unterteilt. Zwi¬ 
schen verschiedenen Vokabelberei¬ 
chen schaltet VOKABULARY NAME 
um. 

Durch Aufruf von NAME wird der 
Vokabelbereich NAME zum CONTEXT- 
VOKABULAR, das heißt dem aktuellen 
Vokabular, in dem die Dictionary- 
Suchläufe zuerst beginnen. Normaler¬ 
weise ist das Standard-Vokabulary ein¬ 
geschaltet. Es trägt den Namen Förth. 

Wenn wir jetzt ein neues Wort definie¬ 
ren, so wird dies in das »Haupt«- 
Wörterbuch eingetragen. Durch 
»WORDS«, »VLIST« oder einem ande¬ 


ren, compilerspezifischen Namen kann 
man das überprüfen, denn dieser gibt ja 
den gesamten Inhalt des Wörterbuchs 
aus. Das Wörterbuch baut sich übri¬ 
gens in Richtung größer werdender 
Adressen auf. Das Ende, also den 
Beginn des freien Arbeitsspeichers, 
kann man mit »HERE« ins »Top of 
Stacks« (TOS) laden. Nun aber zurück 
zu unserem Problem, selbst neue 
Worte zu definieren. 

Anders als in jeder mittelmäßigen 
Basic-Version fehlt in Förth die Quadrat¬ 
funktion. Sie ist aber relativ einfach zu 
definieren. Die Zahl, welche quadriert 
werden soll, muß zuerst einmal im TOS 
stehen. Dann kopieren wir sie mit DUP 
und multiplizieren beide miteinander. 
Die beiden Wörter, die wir dazu brau¬ 
chen, kennen Sie schon. 

4 DUP * . 16 OK 
16 DUP * . 256 OK 

Unsere Überlegung scheint zu stim¬ 
men, denn in beiden Fällen wurde die 
Ausgangszahl quadriert. 

Um die Quadratfunktion nun im Wör¬ 
terbuch zu »verewigen«, erweitern wir 
es um das Wort »QUADRAT«. Diese 
Funktion soll bei ihrem Aufruf immer 
den aktuellen Wert im TOS quadrieren 
und das Ergebnis dort auch wieder 
ablegen. 

Wie schon erwähnt, leitet ein Doppel¬ 
punkt die neue Wortdefinition ein. 
Danach folgt der Name der neuen Funk¬ 
tion, dann die Befehlsfolge. Ein Semiko¬ 
lon schließt das Ganze ab. Mit 
: QUADRAT DUP * ; OK 
haben Sie nun den Wortschatz Ihres 
Systems bereichert. Bevor Sie das 
neue Wort aufrufen, müssen Sie aber 
daran denken, daß die Zahl, die qua¬ 
driert werden soll, im TOS steht. 

12 QUADRAT OK 

berechnet das Quadrat von 12. Das 
Ergebnis 144 bekommen wir mit 

. 144 OK 

auf den Bildschirm. An oberster Stelle 
im Wörterbuch steht nun das neue 
Wort. Falls Ihnen die Ausgabeform zu 
nüchtern ist, dann definieren Sie doch 
mit 

: AUSGABE CR 

.' DIE QUADRATZAHL IST" . ; OK 

eine Ausgaberoutine. Nach dem Aufruf 
von AUSGABE erscheint die gerade 
aktuelle Zahl aus dem TOS. Der Bild¬ 
schirm sieht dann wie folgt aus: 

12 QUADRAT AUSGABE 
DIE QUADRATZAHL IST 144 


Um nun die Ausgaberoutine in dem 
Wort QUADRAT gleich mit aufzurufen, 
bedarf es einer Neudefinition dieses 
Wortes. Es gibt zwar auch Wege, beste¬ 
hende Routinen zu verändern, aber das 
lassen wir hier beiseite. Also geben wir 
das Wort schnell noch einmal neu ein. 

: QUADRAT DUP * AUSGABE ; 

? QUADRAT ISN'T UNIQUE 

Lassen Sie sich durch die Fehlermel¬ 
dung nicht irritieren. Damit teilt Ihnen 
der Compiler nur mit, daß es bereits ein 
Wort mit diesem Namen gab. Durch die 
neue Definition haben Sie es aber 
umbenannt. Rufen Sie jetzt QUADRAT 
auf, und Sie erhalten das gewünschte 
Ergebnis: 

5 QUADRAT 

DIE QUADRATZAHL IST 25 OK 

Ein erneuter Blick ins Wörterbuch 
zeigt, daß jetzt zwei Wörter mit dem 
Namen QUADRAT existieren. Um ein 
Wort zu löschen, benutzt man FORGET. 
FORGET QUADRAT OK 

Damit bleibt nur noch die Frage zu klä¬ 
ren, welche Version der beiden Worte 
QUADRAT gelöscht wurde. Am einfach¬ 
sten ist das festzustellen, indem man 
QUADRAT noch einmal aufruft. 

10 QUADRAT OK 

Damit ist klar, daß FORGET die neue¬ 
ste Version unseres Wortes gelöscht 
hat. Doch damit nicht genug. FORGET 
löscht nicht nur das betreffende Wort, 
sondern auch alle anderen, die später 
definiert wurden. Deshalb sollte man 
FORGET nur sehr vorsichtig einsetzen. 

Der Grund für diese Wirkungsweise 
von FORGET ist leicht zu verstehen, 
wenn man sich vorstellt, daß alle Wörter 
im Wörterbuch durch eine »KETTE« mit¬ 
einander verbunden sind. Trennen Sie 
die Kette an einer Stelle (etwa durch 
FORGET), so sind auch alle Wörter ver¬ 
loren, die bis zu diesem Punkt auf der 
Kette aufgereiht wurden. 

Nicht immer läßt Förth das Löschen 
von Wörtern so ohne weiteres zu. In den 
meisten Förth-Versionen ist der Sprach- 
kern geschützt. Eine User-Variable 
»FENCE« enthält die Adresse, ab der 
ein Löschen durch FORGET nicht mehr 
möglich ist. 

Noch ein Wort zur Namensgebung. 
Hier dürfen Sie Ihrer Kreativität freien 
Lauf lassen, denn als Wortname ist jede 
beliebige Zeichenkombination erlaubt, 
die nicht länger als 31 Zeichen ist. 
Lediglich Leerzeichen dürfen nicht 
benutzt werden. 

Daß sich in Förth so ziemlich alles um, 
beziehungsweise neu definieren läßt, 
zeigt das folgende Beispiel: 

: 8 6 j OK 

Damit wurde der Zahl 8 kurzerhand 
eine neue »Bedeutung« gegeben. Denn 
auf einmal erhalten Sie mit 
8 QUADRAT . 36 OK 
ein recht merkwürdiges Ergebnis. Förth 













ist, und das werden Sie noch öfters 
feststellen, die Sprache der nahezu 
unbegrenzten Möglichkeiten. 

Um Ihnen die Wortbildung noch ein¬ 
mal zu verdeutlichen, definieren wir 
noch eine zweite Funktion. 

: KUBIK DUP DUP * * . j 

Mit der Funktion KUBIK wird ab sofort 
die Kubikzahl des Ausgangswerts im 
TOS auf den Bildschirm ausgegeben. 
Dazu verdoppelt DUP die Zahl auf dem 
TOS zweimal und multipliziert dann die 
beiden obersten Werte jeweils mitein¬ 
ander (»* *«). Der Doppelpunkt und das 
Semikolon umschließen die Definition. 


Mit 

3 KUBIK 27 OK 

bekommen wir das gesuchte Ergebnis. 
100 KUBIK 16960 OK 
ist jedoch ein etwas seltsames Ergeb¬ 
nis. Hier müssen wir uns wieder den 
Wertebereich unserer Zahlen ins 
Gedächtnis zurückrufen. Denn 
1000 000 können wir mit unserem 
Zahlenbereich zwischen -32768 und 
32767 nicht darstellen. 

Nachdem Sie nun eine ganze Menge 
über die Wortdefinition und das Förth- 
Wörterbuch gelernt haben, ist es an der 
Zeit, eine Zusammenfassung durchzu¬ 
führen: 


: - Leitet die Definition eines Förth- 
Wortes ein. 

; - Beendet die Definition eines 
Forth-Wortes. 

FORGET - Löscht alle Wörter bis 
einschließlich dem angegebenen 
aus dem Wörterbuch. 


Die neuen Worte dieses Abschnitts 

- Jede Wortdefinition wird in das Wör¬ 
terbuch eingetragen. Dabei ist der hier 
besprochene Doppelpunkt nicht der 
einzige Weg, eine Wortdefinition vorzu¬ 
nehmen. 

- Ein Eintrag in das Wörterbuch hat zur 
Folge, daß das jeweilige Wort Bestand¬ 
teil des Wortschatzes wird, und somit 
auch, genauso wie die Worte aus dem 
Grundwortschatz, aufgerufen werden 
kann. 

- Durch FORGET NAME wird die letzte 
Definition NAME gelöscht, sowie alle 
danach durchgeführten Definitionen. 

(Peter Monadjemi/hg) 


Forth, entscheiden Sie sich! 


UPN, Rechnen mit dem Stack 
und Wortdefinitionen sind nach 
den letzten Seiten kein Problem 
mehr für Sie. Aber ein Computer- 
Programm muß auch Entschei¬ 
dungen treffen können. 

W ie in fast allen höheren Pro¬ 
grammiersprachen, kön¬ 
nen auch in Förth Entschei¬ 
dungen in der Form »Führe eine Anwei¬ 
sung nur dann aus, wenn ein Vergleich 
positiv ausfällt« bearbeitet werden. 
Förth stellt dazu zwei Konstruktionen 
zur Verfügung. Zum einen »IF... ENDIF« 
und zum andern »IF... ELSE... ENDIF«. 
Die zweite Anweisung bearbeitet den 
Teil zwischen IF und ELSE, wenn der 
Vergleich positiv ist. Ist er negativ, dann 
wird der Teil ausgeführt, der zwischen 
ELSE und ENDIF steht. Fast alle Förth- 
Dialekte erlauben anstelle von ENDIF 
auch THEN, wenn auch der erste Weg 
die sinnvollere Bezeichnung darstellt. 

Ein Beispiel verdeutlicht die Arbeits¬ 
weise von IF ... ENDIF: 

: TEST 9 >IF ."ZU GROSS !" 

ENDIF ; OK 

»TEST« prüft, ob die Zahl im TOS (also 
die zuletzt eingegebene Zahl) größer 
als 9 ist. In diesem Fall wird der Kom¬ 
mentar »ZU GROSS !« ausgegeben. 

4 TEST OK 

11 TEST ZU GROSS OK 

Wenn Sie sich nun einmal das zuge¬ 


hörige Stack-Diagramm (Bild 1) an¬ 
schauen, dann wird Ihnen der Mecha¬ 
nismus der IFENDIF-An Weisung schnell 
klar. Um einen Vergleich durchzufüh¬ 
ren, müssen sich zunächst einmal 
beide Zahlen im Stack befinden. Der 
Vergleichsoperator» >«holt beide Zah¬ 
len vom Stack, führt den Vergleich aus 
und legt für den Fall, daß er positiv aus¬ 
fällt eine »1« und für den Fall, das er 
negativ ausfällt eine »0« im TOS ab. Von 
diesem Flag (deutsch: Flagge oder 
Signal) hängt es ab, ob die zwischen IF 
und ENDIF stehenden Anweisungen 
ausgeführt werden oder nicht. 

Bei der IF-ELSE-ENDIF-Anweisung 
dagegen werden für den Fall, daß der 
Vergleich negativ ausfällt, die Anwei¬ 
sungen zwischen ELSE und ENDIF 
ausgeführt. Alle erlaubten Vergleichs¬ 
operatoren zeigt Tabelle 1. 

Wenn Sie die Vergleichsoperatoren 
durchgehen, dann werden Sie sicher 
den Vergleich »ungleich« vermissen. Er 
läßt sich aber leicht durch die Wortfolge 
»= NOT« ersetzen. Das Flag, das bei 
»=« im TOS abgelegt wird, invertiert 
dann »NOT« und wir haben unser Ziel 
erreicht. 

Zwei Punkte müssen Sie aber noch 
bedenken, wenn die Anweisung für 
eine Entscheidung dienen soll. Sie darf 
nie im Direktmodus, sondern nur inner¬ 
halb einer Wortdefinition stehen. 
Außerdem ist noch zu beachten, daß 
die Zahlen, mit denen man den Ver¬ 
gleich durchgeführt hat, anschließend 


vom Stack verschwunden sind. Wollen 
Sie weiter mit diesen Werten arbeiten, 
dann müssen Sie sie zuvor kopieren. 

Nun zu einem anderen Thema: Die 
Stärke eines Computers liegt in seiner 
Fähigkeit, bestimmte Anweisungen 
beliebig oft sehr schnell zu wiederho¬ 
len. Während im normalen Basic hierfür 
nur die FOR-NEXT-Schleife vorhanden 
ist, kennt Förth insgesamt vier verschie¬ 
dene Anweisungen. Allen gemeinsam 
ist, daß sie nur in Wörtern (also nicht 
direkt) benutzt werden dürfen. Die ein¬ 
fachste Wiederholfunktion ist »DO 
LOOP«: 

: SCHLEIFE 10 0 DO I . 

LOOP ; OK 

Als Ergebnis bekommen wir 
SCHLEIFE 0123456789 OK 

Zwei Besonderheiten fallen an der 
Schleifenkonstruktion sofort auf: 

- Zuerst wird der End- und dann der 
Anfangswert übergeben. 

- Das Wort »I« holt den Schleifenwert, 
der die bisherige Anzahl der Durchläufe 
angibt, in den TOS. 

Die Bedeutung des Wortes »DO« 
besteht darin, zum einen die Stelle zu 
markieren, zu der nach »LOOP« unter 
Umständen zurückgekehrt wird, und 
dient zum anderen dazu, die beiden 
Schleifenwerte (Start und Ende) auf 
einen weiteren Stack zu transferieren. 
Von diesem war bisher noch nicht die 
Rede, da er für den Anfänger keine 
praktische Bedeutung hat. Die Aufgabe 
dieses »RETURN STACK« besteht 
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darin, wichtige Adressen bei der Aus¬ 
führung eines Wortes zu verwalten. 
Und auch die Schleifenwerte einer DO- 
LOOP-Anweisung werden hier gespei¬ 
chert. Damit ist auch die Bedeutung des 
Wortes »I« zu verstehen. Diese Anwei¬ 
sung holt den momentanen Wert des 
»Top Of Return Stack« in den TOS. 

Die DO-LOOP-Anweisung gehört zu 
den sogenannten »definierten Schlei¬ 
fen«, da die Anzahl der Durchläufe von 
vornherein fest steht. Ganz anders ist 
das bei »BEGIN ... UNTIL«: 

: TEST BEGIN 1 + DUP . 

DUP 100 = 

UNTIL ." FERTIG !" ; OK 

Hier steht die Anzahl der Durchläufe 
nicht von vornherein fest. Sie hängt viel¬ 
mehr von einer Bedingung ab. In unse¬ 
rem Beispiel wird durch »=« geprüft, ob 
der Inhalt des TOS bereits den Wert 
100 erreicht hat. Ist das der Fall, so wird 
im TOS eine 1 als Flag abgelegt. Daran 
erkennt das Wort UNTIL, daß eine 
Anweisung abzubrechen ist. 

Für den Fall, daß der Inhalt des TOS 
100 noch nicht erreicht hat, wird durch 
»=« eine 0 im TOS abgelegt und 
anschließend werden alle Anweisun¬ 
gen, die zwischen BEGIN und UNTIL 
liegen, ein weiteres Mal wiederholt. 
Somit handelt es sich bei dieser Anwei¬ 
sung um eine vom Typ: »Wiederhole so 
lange, bis eine bestimmte Bedingung 
wahr ist.« 

Falls Ihnen dieser Befehl immer noch 
zu undurchsichtig ist, so nehmen Sie 
ein Blatt Papier und zeichnen Sie die 
Stackbelegung bei dem Wort TEST auf. 
Denken Sie daran, daß sowohl durch 
».«, als auch durch »=« der Inhalt des 
TOS vom Stack verschwindet, wenn 
man ihn nicht vorher kopiert hat. 

Noch ein Beispiel für diese Befehls¬ 
folge: 

: UEBUNG BEGIN CR 

DRUECKE EINE TASTE" KEY 

65 = UNTIL ; OK 

Durch KEY wird ein Zeichen von der 
Tastatur gelesen (ähnlich GET in Basic) 
und der dazugehörige ASCII-Wert im 
TOS abgelegt. Dieser wird daraufhin mit 
65 verglichen (ASCII-Wert von A ist 
65). Haben Sie tatsächlich A eingege¬ 
ben, so bricht der Programmlauf ab, 
andernfalls wird er ein weiteres Mal 
durchgeführt. 

Ähnlich wie bei BEGIN-UNTIL liegen 
die Verhältnisse bei der BEGIN- WHILE- 
REPEAT-Anweisung mit dem Unter¬ 
schied, daß die Ausführungs- 
Bedingung bereits vor dem WHILE ste¬ 
hen muß. Die eigentliche Anweisung 
befindet sich zwischen WHILE und 
REPEAT. Ist die Bedingung nicht erfüllt, 
so wird die Anweisung gar nicht erst 
ausgeführt. 

: TASTE BEGIN KEY 65 = 0= 

WHILE VERSUCH'S NOCHMAL " 

UNTIL ." NA ENDLICH !* ; OK 


TASTE B VERSUCH'S NOCHMAL OK 
TASTE A NA ENDLICH ! OK 

KEY bringt wieder den ASCII-Code 
der gerade gedrückten Taste in den 
TOS. »65 =« prüft diesen Wert auf 
Code 65 (für A). Da in diesem Fall im 
TOS eine »1« abgelegt und dadurch die 
Anweisung zwischen WHILE und 
UNTIL nicht ausgeführt werden würde, 
wird der Inhalt des TOS (das Flag) mit 
»0=« invertiert. Wenn im TOS eine 0 
liegt, dann verändert »0=« diese in eine' 
1 . 

Zum Abschluß dieses Kapitels noch 
eine Wiederholungsanweisung, bei der 
Sie sich keine Gedanken um ein 
Abbruchkriterium machen müssen. 
Denn bei »BEGIN-AGAIN« handelt es 
sich um eine Endlosanweisung. 

: NONSTOP BEGIN 40 EMIT 
AGAIN ; OK 

Nach dem Aufruf von NONSTOP pro¬ 
duziert Ihr Computer so lange Klammer¬ 
affen, bis Sie den Strom abschalten 
oder einen Reset durchführen. 

Variablen, ohne die kaum ein Basic- 
oder Pascal-Programm auskommt, 
haben wir bisher eher beiläufig 
erwähnt. Das liegt daran, daß Förth 
(anders als Basic und Pascal) stack¬ 
orientiert ist. Damit ist gemeint, daß sich 
alle Zahlenoperationen auf dem Stack 
abspielen. Demnach könnte man streng 
genommen auf die Variablen völlig ver¬ 
zichten. In bestimmten Fällen haben 
diese aber doch ihre Bedeutung. Denn 
zum einen ist die Kapazität des Stacks 
begrenzt, und zum anderen ersparen 
Sie sich durch die Verwendung von 
Variablen, beziehungsweise Konstan¬ 
ten, allzu umständliche Stack-Opera¬ 
tionen. 

Um mit Konstanten oder Variablen zu 
arbeiten, müssen Sie diese (ähnlich 
Pascal) zuerst einmal definieren und 
ihnen einen Anfangswert zuweisen. 
Dies geschieht durch die Definitions¬ 
wörter »CONSTANT« und »VARIABLE«. 
0 VARIABLE ZAHL OK 

Damit haben wir eine Variable auf den 
Namen Zahl definiert. Beim Aufruf von 


Zahl erhalten Sie nun aber nicht deren 
Wert, sondern lediglich die Adresse, 
unter der dieser Wert im Speicher zu 
finden ist. 

ZAHL . 12345 OK 

Um den eigentlichen Wert zu erfah¬ 
ren, benutzen wir den schon bekannten 
Befehl »C@« beziehungsweise »?«. 
Seine Bedeutung war: »Hole den Inhalt 
der Speicherzelle, deren Adresse im 
TOS liegt.« Mit 
4 ZAHL ! OK 

weisen wir unserer Variablen ZAHL den 
Wert 4 zu. Zuerst laden wir die 4 und die 
Adresse von ZAHL auf den Stack. Mit 

ZAHL 4 OK 

testen wir, ob die neue Zahl im Speicher 
abgelegt wurde. 

Ein wenig anders schaut es mit den 
Konstanten aus. Hier bringt der Aufruf 
der Konstanten mit Namen ihren Wert 
direkt in den TOS: 

45 CONSTANT WERT OK 
WERT . 45 OK 

Auch der Wert einer Konstanten läßt 
sich ändern, wenn Sie die Adresse ken¬ 
nen. Als wir weiter vorne die Zahlen¬ 
basis veränderten, griffen wir auf solch 
eine Variable zurück. Zum Abschluß 
noch ein kleines Zählprogramm, das im 
Hexadezimalsystem bis 100 zählt: 

: HZAEHL 

100 0 DO HEX I . CR LOOP 
DECIMAL ; OK 

Programmieren können Sie in Forth 
jetzt natürlich noch lange nicht. Aber 
Sie kennen die Grundzüge und es steht 
Ihnen nichts im Wege, sich mit offenen 
Augen in das Abenteuer Förth zu stür¬ 
zen. In der folgenden Tabelle 2 finden 
Sie diesmal nicht die neu besproche¬ 
nen Befehle, sondern alle diejenigen, 
die Ihr Förth-System haben sollte, aber 
nicht haben muß. Die Erklärung der 
Befehlsworte spornt Sie vielleicht an, 
die Anweisungen auszuprobieren und 
in eigenen Programmen zu verwenden. 
Die Listings in diesem Heft zeigen Ihnen 
weiter, wie man Förth-Programme ent¬ 
wickelt und realisiert. 

(Peter Monadjemi/hg) 
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Wort Beschreibung Stack-Relation 

BUFFER Wie BLOCK, die Daten werden n - a 

jedoch nicht übertragen 

C! Speichert das niedrigwertige n a - 

Byte einer einfach genauen 
Integer 

C@ Holt ein Byte und speichert es a - n 

als einfach genaue Integer 

CASEND Beendet eine CASE-Anweisung 

CHR$ Wandelt eine ein Byte lanqe c - a 

Integer in ihre ASCII-Darstellung 
um; das Ergebnis steht im tem¬ 
porären Arbeitsbereich, dessen 
Adresse auf den Stack gelegt 
wird 

CMOVE Überträgt n Bytes von Adresse a, a 2 n - 

1 nach Adresse 2; die Übertra¬ 
gung beginnt bei den niedrig¬ 
wertigen Adressen 

COMPILE Nimmt einen Wert in die Wortde¬ 

finition mit auf 

CONSTANT Vereinbart eine Konstante mit n - 

dem Wert n 

CONTEXT Enthält die Adresse des - a 

Kontext-Vokabulars 

COUNT Legt die Anfangsadresse des a - a, n 

Strings und den String-Zähler 
auf den Stack 

CR Sendet einen Zeilenvorschub 

CREATE Richtet einen Wörterbucheintrag 

ein 

CRT Lenkt die Ausgabe auf den 

Bildschirm 

CURRENT Enthält die Adresse des aktuel- - a 

len Wörterbuches 

D # IN Fordert zur Eingabe einer dop- - d 

pelt genauen Integer auf 

D* Multipliziert doppelt genaue d, d 2 - d p 

Integers 

D*/ Multipliziert d 1 mit d 2 und divi- d 1 d 2 d 3 - d 

diert das vierfach genaue Pro¬ 
dukt anschließend durch d 3 

D*/MOD Wie DV; liefert aber auch den d 1 d 2 d 3 d r d q 

Rest 

D+ Addiert zwei doppelt genaue d 1 d 2 - d 

Zahlen 

D- Subtrahiert zwei doppelt genaue d 1 d 2 - d 

Zahlen (d, minus d 2 ) 

D/ Liefert den Quotienten d, d 2 - d 

von d 1 und d 2 

D/MOD Wie Dl, liefert aber auch d 1 d 2 - d r d q 

noch den Rest 

D. Gibt eine doppelt genaue d - 

Integer aus 

D.R Gibt eine doppelt genaue Inte- dn- 

ger in einem n Zeichen langen 
Datenfeld aus 

E Bearbeitet den Block, der vom 

Inhalt von SCR bestimmt wird 

EDIT Bearbeitet Block n; n wird in n - 

SCR gespeichert 

ELSE Für Programmverzweigungen c - 

EMIT Gibt ein Zeichen aus 

EMPTY- , Markiert alle Puffer als leer 

BUFFERS 

ERASE Setzt n aufeinanderfolgende a n - 

Byte auf den Wert 0, beginnend 
mit der Adresse a 

EXECUTE Führt den Wörterbucheintrag a - 

aus, dessen Adresse auf dem 
Stack liegt 

EXIT Beendet die Programmbe¬ 

arbeitung 

Tabelle 2. Der Befehlssatz, den Ihr Forth-System haben sollte 


BUFFER 


CASEND 

CHR$ 


CMOVE 


COMPILE 


CONSTANT 


CONTEXT 


COUNT 


CR 

CREATE 


CURRENT 


DVMOD 


ELSE 
EMIT 
EMPTY- , 
BUFFERS 
ERASE 


EXECUTE 


n - a EXPECT 


a - n FILL 


<*i d 2 ~cl p 
d t d 2 d 3 - d 


di d 2 d 3 d r d q 
di d 2 - d 
d 1 d 2 - d 
d, d 2 - d 


di d 2 - d r d q 


FORGET 


FORTH 
D0 = 


DARRAY 


a - a, n DECIMAL 

DEFINITIONS 


DNEGATE 

DO 

DRDSECS 

DROP 


DWTSECS 

HERE 


IF 

IMMEDIATE 


Beschreibung 

Liest Zeichen in den Arbeits¬ 
speicher ein, beginnend bei 
Adresse a, wobei maximal n Zei¬ 
chen oder bis zum ersten 
Return gelesen wird 
Belegt n aufeinanderfolgende 
Speicherwörter (beginnend bei 
Adresse a) mit dem 
ASCII-Wert n c 

Sucht die Adresse des nächsten 
Wortes im Eingabestrom 
Speichert die markierten Puffer 
auf Diskette 

Löscht alle Wörter bis ein¬ 
schließlich dem angegebenen 
aus dem Wörterbuch 
Name des Hauptwörterbuches 
Ist »wahr«, wenn der doppelt 
genaue Wert gleich 0 ist 
Ist »wahr«, wenn d 1 kleiner d 2 ist 
Liefert den Absolutwert einer 
doppelt genauen Integer 
Vereinbart einen Array mit dop¬ 
pelt genauen Integers 
Setzt die Zahlenbasis auf 10 
Macht den Kontext-Wortschatz 
zum aktuellen Wortschatz 
Liefert die Stack-Tiefe in Einhei¬ 
ten von einfach genauen 
Integers 

Liefert die größere von zwei 
doppelt genauen Integers 
Liefert die kleinere von zwei 
doppelt genauen Integers 
Dreht das Vorzeichen einer dop¬ 
pelt genauen Integer um 
Leitet eine Schleife ein 
Liest Diskettensektoren 
Entfernt die oberste einfach 
genaue Integer vom Stack 
Dupliziert die oberste einfach 
genaue Integer 
Schreibt Diskettensektoren 
Liefert die Adresse des näch¬ 
sten verfügbaren 
Wörterbuch-Bytes 
Umwandlung der Zahlenausgabe 
in Hexadezimaldarstellung 
Zur Einfügung von Zeichen bei 
der Zahlenausgabe mit Maske 
Legt den Schleifenindex auf den 
Stack 

Legt den Testwert der Schleife 
auf den Stack 

Für Programmverzweigungen 
Schaltet von Compilierung 
in Ausführung um 
Gibt die erste Zeile von n 2 
Blocks aus, beginnend 
mit Block n, 

Liefert den Index der dynamisch 
übernächsten Schleife auf den 
Stack 

Legt den ASCII-Code des näch¬ 
sten Eingabezeichens auf den 
Stack 

Gibt den Block aus, dessen 
Nummer in SCR gespeichert ist 
Beendet eine Schleife 
Überträgt die n ersten Zeichen 
des Strings, der bei a beginnt, in 
den temporären Arbeitsbereich 


Stack-Relation 


d, d 2 -1 
d,-d a 


d, d 2 - d 


"1 "2 

a n, n 2 n 3 n 4 — nf 
n - 


an, n 2 n 3 n 4 - nf 
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LITERAL 


LOAD 

LOADS 

LOOP 


M + 

M- 

M/ 

M/MOD 


MYSELF 

NCASE 

NEGATE 


QUERY 

QUIT 

R> 


RIGHTS 


Beschreibung 


OTHERWISE 


RANDOMIZE 

REPEAT 


Legt die Länge eines Strings auf 
den Stack 

Gibt den Block n aus und legt n 
in SCR ab 

Nimmt den Stack-Wert, ohne ihn 
zu interpretieren, in die Compila¬ 
tion mit auf 
Lädt den Block n 
Lädt n 2 Block, beginnend mit n 1 
Inkrementiert den Schlei¬ 
fenindex 

Doppelt genaues Produkt zweier 
einfach genauer Integers 
Multipliziert d 1 mit n 2 und spei¬ 
chert das Produkt als dreifach 
genaue Integer, welche dann 
durch n 3 dividiert wird; der Quo¬ 
tient ist doppelt genau 
Gemischte Addition 
Gemischte Subtraktion 
Gemischte Division 
Wie M/, außer daß sowohl Quo¬ 
tient als auch Rest geliefert 
werden 

Liefert den größeren von zwei 
Werten 

Überträgt an die Adresse 
einen n 2 Zeichen langen Teil- 
String, der ab der n,ten Zei¬ 
chenposition des Strings a 
beginnt 

Liefert den kleineren von zwei 
Werten 

Liefert den Rest der Division 
von n,/^ 

Verschiebt n 16 Byte lange 
Speicherwörter, beginnend bei 
a 1 , nach a 2 

Erlaubt rekursive Aufrufe 
Leitet eine CASE-Anweisung ein 
Ersetzt eine Zahl durch die 
negative Zahl mit dem gleichen 
Betrag 

Negiert ein Flag 

Setzt die Ein-/Ausgabebasis für 

Zahlen auf das Oktalsystem 

Allgemeiner Ausgang in CASE- 

Anweisungen 

Dupliziert die zweite Zahl an 
oberste Stack-Position 
Enthält die Anfangsadresse des 
temporären Arbeitsbereichs 
Löscht den Bildschirm 
üBgt die Ausgabe sowohl auf 
Bildschirm als auch auf Drucker 
Legt die Ausgabe nur auf den 
Drucker 

Für Zeicheneingabe 
Löscht den Return-Stack 
Überträgt die oberste einfach 
genaue Integer vom Return- 
Stack auf den Parameter-Stack 
Dupliziert die oberste einfach 
genaue Integer vom Return- 
Stack auf den Parameter-Stack 
Initialisiert den Zufallsgenerator 
Für die Programmierung von 
Schleifen 

Überträgt die n letzten Zeichen 
des Strings a in den temporären 
Arbeitsbereich, liefert dessen 
Adresse 


Stack-Relation 


n, n 2 - d 


di n 2 n 3 — d 2 


d, n - d 2 
d t n - d 2 
d n, - n 2 
d n, - d, n g 


a n t n« — a< 


a, a 2 n - 


n, n 2 — n 1 n 2 ni 


Tabelle 2. Der Befehlssatz, den Ihr Forth-System haben sollte 
(Schluß 


Wort 

Beschreibung 

Stack-Relation 

RN1 

Erzeugt eine Zufallszahl und 
speichert sie in SEED 


RND 

Erzeugt eine Zufallszahl 
zwischen 1 und n. 

n i " n 2 

ROLL 

Legt die n-te einfach genaue 

Integer auf dem Stack an ober¬ 
ste Stack-Position 

n 0 - n n 

ROT 

Befördert die dritte einfach 
genaue Integer an oberste 
Stack-Position 

n 2 n 3 - n 2 n 3 n 1 

SAVE- 

Markiert alle Puffer für nachfol- 


BUFFERS 

gende Sicherungen 


SCR 

Enthält die Adresse des zuletzt 
bearbeiteten Blockpuffers 

- a 

SIGN 

Fügt den ASCII-Code des 
Minuszeichens bei Zahlenaus¬ 
gabe mit Maske ein, falls n 
negativ ist 

n - 

SPACE 

Gibt ein Leerzeichen aus 


SWAP 

Vertauscht die beiden obersten 
Stack-Einträge 

rij n 2 * Ü2 

THEN 

Bei Programmverzweigungen 
benötigt 


TYPE 

Gibt n Zeichen beginnend ab 
der Adresse a aus 

an- 

U* 

Vorzeichenlose Integermulti¬ 
plikation 

u, u 2 - u 

U. 

Gibt eine vorzeichenlose Integer 

u - 


aus 


U.R 

Gibt eine vorzeichenlose Integer 
in einem n Stellen breiten 

Datenfeld aus 

u n - 

U/MOD 

Vorzeichenlose Division mit dop¬ 
pelt genauem Dividenden, liefert 
Quotienten und Rest 

u d u t - u r u q 

U< 

»Wahr« falls u, kleiner u 2 ist (vor¬ 
zeichenlose Integers) 

Ui u 2 - 

UNTIL 

Für die Programmierung von 

Schleifen 

f- 

UPDATE 

Markiert alle Blockpuffer als 
gesichert 


VARIABLE 

Definiert eine Variable 


VOCABU- 

Für die Vereinbarung eines 


LARY 

neuen Wortschatzes 


WHILE 

Für die Programmierung von 

Schleifen 

f- 

WORD 

Liest Zeichen aus dem Eingabe¬ 
strom; Trenner ist Zeichen mit 
ASCII-Code n 

n - a 

XOR 

Bitweises exklusives ODER 

n 1 n 2 — n 

Y/N 

[ 

Fragt nach Y oder N; N liefert 
Wahrheitswert »wahr« 

Beendet Compilierung und leitet 
Ausführung ein; wird in Wortdefi¬ 
nition benötigt 

-f 

[COMPILE] 

] 

Bewirkt, daß ein Wort mit dem 

Status IMMEDIATE compiliert 
wird 

Beendet Ausführung und fährt 
mit der Compilierung fort 


t*Kaiia »n«. 

BIhaIIaa Ix 1A IOC 


Die Buchstaben der Stack-Relationsspalte bedeuten: 

a « Adresse 
c = ASCII-Code 
d = doppeltgenaue Zahl 


f - Flag 



n * ganze Zahl 

r *» Rest (bei Division) 

q = ganzzahliges Ergebnis (bei Division) 
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Professionelle Gnrfikproqmmme 
für Schneider CRC 6128 + Jwte 


d DIGITAL 
RESEARCH* 

DR Graph 


DR Draw 

DR Draw: Macht aus Ihren Ideen ein Kunstwerk 

Verwenden Sie DR Draw, um Organisations-Diagramme, Flußdiagramme, Logos, techni¬ 
sche Zeichnungen, Schaubilder, Platinenentwürfe und jede nur erdenkliche Art von 
Linien- und Förmgrafiken zu entwerfen. Und jeder Bestandteil Ihrer Zeichnung kann auf 
vielfältige Weise durch Farben und Schraffuren hervorgehoben werden. 

Einfachste Bedienung 

DR Draw verwendet leichtverständliche Menüs zur Steuerung seiner Funktionen und 
Erstellung einer Zeichnung. Sie können aus vorprogrammierten Figuren wie Kreisen, 
Quadern, Rechtecken, Kreisbögen, Polygonen und Linien auswählen oder Ihre eigenen 
Figuren entwerfen oder die bestehenden verändern. An beliebigen Stellen kann erläu¬ 
ternder Text in eine Zeichnung eingefügt werden. Außerdem haben Sie die Wahl zwi¬ 
schen mehreren Schriftarten. 

Flexibilität bei der Gestaltung 

Jeder Teil einer Zeichnung kann auf Tastendruck überarbeitet und verändert werden: 
Figuren können mit Farben oder Mustern gefüllt werden; sie können vergrößert oder ver¬ 
kleinert oder an eine neue Position verschoben oder kopiert werden. Ebenso können die 
Schriftarten, Größen, Farben und Positionen mit wenigen Tastendrücken geändert 
werden. 

Vergrößerungen und Ausschnittdarstellungen 

Mit Hilfe einer besonderen Funktion von DR Draw können Sie Einzelheiten Ihrer Zeich¬ 
nung vergrößern, um Details besser bearbeiten zu können. 

Ausgabe auf Papier, Transparentfolie oder Film 

Was immer Sie erstellen, kann gespeichert oder zu Berichts- und Präsentationszwecken 
auf Papier, Transparentfolie oder Film geplottet oder gedruckt werden DR Draw druckt 
Ihre Zeichnung exakt auf eine DIN-A4-Seite. 

Hardwarevoraussetzungen 

DR Draw läuft auf jedem Schneider CPC6128 oder Joyce PCW8256 mit einem oder 
zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege¬ 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 

Die Fähigkeiten auf einen Blick 

• Erstellung beliebiger Zeichnungen 

• vorprogrammierte Figuren wie Kreise, Quader, Rechtecke, Kreisbögen, Polygone 
und Linien 

• freie Wahl der Gestaltungselemente wie Farben, Muster und Schriftarten 

• Vergrößerungen und Ausschnittdarstellungen 

• Teile einer Zeichnung können kopiert, verschoben oder gelöscht werden 

• Grafiken können gespeichert, geplottet oder gedruckt werden 

• einfache Bedienung durch Menüauswahl 

Best.-Nr. MS 613 DM 199,-* (sFr. 178,-/öS 1890,-*) 


DR Graph: Präsentationsgrafiken mit professionellem Niveau 

DR Graph ist ein interaktives Softwarepaket, mit dem Sie Ihren Mikrocomputer zur Erstel¬ 
lung von Geschäftsgrafiken und Text-Charts verwenden können. DR Graph macht es 
leicht, komplexe geschäftliche oder wissenschaftliche Daten in übersichtliche und aus¬ 
sagekräftige Grafiken zu verwandeln. 

Ein Bild sagt mehr als tausend Worte 

Eine gut dargestellte Grafik weckt das Interesse und die Aufmerksamkeit des angeziel¬ 
ten Personenkreises eher als andere Kommunikationsarten. Grafisch dargestellte Fak¬ 
ten können leichter analysiert, verstanden und behalten werden. 

Einfachste Bedienung 

Mit DR Graph können Sie die Grafik dem Computer schnell und leicht beschreiben. Zur 
Erstellung einer Grafik werden die gewünschten Optionen ganz einfach aus übersichtli¬ 
chen Menüs ausgewählt. DR Graph kann von jedermann bedient werden, der mit einfa¬ 
chen Grundlagen der Mikrocomputerbedienung vertraut ist. 

Flexibilität bei der Gestaltung 

Zusätzlich zur vorhandenen Computerschrift stehen drei verschiedene Schriften für 
Titelzeilen, Legenden und Anmerkungen zur Verfügung. Auch bei der Gestaltung der 
Grafiken kann aus zahlreichen Linientypen, Linien- und Balkenbreiten und acht Schraffu¬ 
ren gewählt werden. 

Ansehen, speichern und drucken 

Mit DR Graph können Sie auf dem Bildschirm immer genau sehen, wie Sie Ihre Grafik 
gestalten. Anschließend können Sie sie drucken oder auf Diskette speichern, um sie 
später weiter zu bearbeiten. 

Hardwarevoraussetzungen 

DR Graph läuft auf jedem Schneider CPC6128 oder Joyce PCW8256 mit einem oder 
zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege¬ 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 

Die Fähigkeiten auf einen Blick 

• Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Grafiken, Strich- 
Histogramme, Punkte-Grafiken und Text-Grafiken 

• freie Wahl der Gestaltungselemente wie Beschriftungen, Titelzeilen, Legenden, 
Farben, Schriftarten und Ränder 

• frei wählbare Skalierung 

• variable Linien- und Balkenbreite 

• Schnittstelle zu anderen Programmen 

• beliebig positionierbare Anmerkungen 

• Grafiken können gespeichert, geplottet oder gedruckt werden 

• einfache Bedienung durch Menüauswahl 

Best.-Nr. MS 614 DM 199,—* (sFr. 178,-/öS 1890,-*) 


In Vorbereitung: 

Fakturierung 

Ein dBASE-ll-Anwenderprogramm, das folgende Möglichkeiten bietet: Angebots¬ 
schreibung und Rechnungsschreibung, Artikelverwaltung, Adreßverwaltung, Nach¬ 
kalkulation. Der dokumentierte Quellcode wird für individuelle Programmanpassun¬ 
gen mitgeliefert. 

Best.-Nr. MS 616 DM 94 5— * (sFr. 82,-/öS 940,-*) 


Finanz-Buchhaltung 

Das Komplett-Paket für den Schneider CPC 6128 und Joyce. Erstellen von Konten¬ 
plänen, Umsatzsteuerauswertung und Einnahmen-/Überschußrechnung. Betriebs¬ 
wirtschaftliche Auswertungen wie Journalschreibung und Kostenstellenrechnung 
möglich. 

Best.-Nr. MS 615 DM 194,-* (sFr. 175,-) 


* inkl. MwSt. Unverbindliche Preisempfehlung 


Diese MarktÄTechnik-Softwareprodukte erhalten 
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Förth zum Abtippen 


Gelerntes will auch geübt werden. Wer noch kei¬ 
nen Förth-Interpreter hat, der findet hier einen, der 
nichts kostet. Einfach eintippen, RUN eingeben 
und mit der ENTER-Taste starten. 

N achdem Sie sich jetzt durch viele Seiten Förth hin¬ 
durchgekämpft haben, wollen Sie Ihre Förth-Pro¬ 
gramme zum Laufen bringen. Doch gleich einen 
Compiler kaufen, das muß nicht sein. Testen Sie erst einmal 
Ihr Interesse mit diesem kostenlosen Basic-Förth-Interpreter. 
»Basic-Förth V.4« ist vollständig in Basic geschrieben und 


läuft auf beinahe jedem Computer. Spezielle Befehle wurden 
fast völlig weggelassen und erklären sich, wenn, durch ihre 
Anweisungen. Also einfach eingetippt und schon beginnt Ihr 
Förth-Vergnügen. 

Die Profis unter Ihnen werden jetzt sicher schmunzeln. 
Förth-Interpreter in Basic - da geht doch der ganze 
Geschwindigkeitsgewinn in die Binsen. Richtig, aber mit 
Basic-Förth sollen Sie nicht professionell programmieren, 
sondern ausprobieren. Und da ist Basic zum Eingeben eben 
die leichteste Programmiersprache. Wenn dann erst einmal 
Interesse an dieser Sprache geweckt ist, können Sie immer 
noch auf einen echten Förth-Compiler umsteigen. (hg) 


1 CLS 

2 DIM S(80),R(80),L(80) ,LQ(80),I$ <800) 

3 DIM B*<80> 

4 PRINT " BASIC-FORTH V.4" 

20 REM 

24 ON ERR0R GOTO 29 

28 GOTO 30 

29 PRINT AF,"?" 

30 M=0 
32 N=0 
60 K= 1 

62 INPUT I* 

63 I*=I$+" " 

64 LI=0 

70 L <K> =L1 
72 LQ (K) =LEN<I*) 

74 L1 =LO < K) 

100 IF N<0 THEN GOTO 106 

104 GOTO 110 

106 PRINI "STACK EMPTY" 

108 GOTO 30 
110 L (K) =L (K) +1 

112 IF L <K)>LO <K) THEN GOTO 132 
114 B*=MID$(I*,L<K>,1) 

116 IF B$=" “ THEN GOTO 110 
118 A*=B$ 

120 L(K)=L(K)+1 

122 B*=MID$<I*,L<K>,1) 

124 IF B*=“ " THEN GOTO 130 
126 A$=A*+B* 

128 GOTO 120 
130 GOTO 200 
132 IF K<2 THEN GOTO 60 

134 K=K—1 

135 1$=MID$(14.1,LO < K)) 

136 Ll=LO(K) 

138 GOTO 110 

200 REM DICTIONARY 

300 IF A$< >“SQUARE" THEN GOTO 310 

302 B*="DUP * " 

304 I$=I:T+B* 

306 K=K+1 
308 GOTO 70 

310 IF A$<>"CUBE" THEN GOTO 320 
312 B*="DUP SQUARE * ” 

314 I*=I$+B$ 

316 K-K+l 
318 GOTO 70 

320 IF A*<>"TEST" THEN GOTO 330 
322 B*="Dü PI 10 / R@ * SIN . LOOP " 
324 I*=I*+B* 


326 K=K+1 
328 GOTO 70 
330 REM 

902 IF A*< >" + , ‘ THEN GOTO 910 
904 N=N-1 

906 S(N>=S(N)+S(N+1) 

908 GOTO 100 

910 IF A*< THEN GOTO 920 

912 N=N-1 

914 S <N> =S CN)-S(N+l> 

916 GOTO 100 

920 IF AtO' 1 *' 1 THEN GOTO 930 
922 N=N—1 

924 S < N)=S(N)*S(N+1) 

926 GOTO 100 

930 IF A$< >"/" THEN GOTO 940 
932 N=N-1 

934 SIN)=S(N)/S <N+1) 

936 GOTO 100 

940 IF A$< >"ABS" THEN GOTO 950 
942 S < N)=ABS(S < N)) 

944 GOTO 100 

950 IF A$< >"ATN“ IHEN GOTO 960 
952 S(N> =ATN <S <N)) 

954 GOTO 100 

960 IF A*< >*'COS" THEN GOTO 970 
962 S<N)=COS(S(N)) 

964 GOTO 100 

970 IF A*< > ,, EXP" THEN GOTO 980 
972 S <N)=EXP <S <N)) 

974 GOTO 100 

980 IF A*0"INT" THEN GOTO 990 
982 S(N) = INT <S(N)) 

984 GOTO 100 

990 IF A*<>"LOG" THEN GOTO 1000 
992 S(N)=LOG(S < N)) 

994 GOTO 100 

1000 IF A*<> M RND'" THEN GOTO 1010 
1002 S(N)=RND(-N > 

1004 GOTO 100 

1010 IF A*<> ,, SGN" THEN GOTO 1020 
1012 S <N)=SGN(S <N)) 

1014 GOTO 100 

1020 IF A« >“SIN“ THEN GOTO 1030 
1022 S < N)=SIN < S < N)) 

1024 GOTO 100 

1030 IF A$<>"SQR" THEN GOTO 1040 
1032 S(N)=SQR < S < N >) 


Listing. Ein Forth-Interpreter zum Abtippen 














1034 GOTO 100 

1040 IF A$< >“FAN" THEN GOIG 1050 
1042 S(N)=rAN(S(N)> 

1044 GOTO 100 

1050 IF A*< " THEN GOTO 1060 

1052 S <N) =S (N) S <N+1 ) 

1054 GOTO 100 

1060 IF A$<>"S?" 1 HEN GOTO 1070 

1062 FOR 1=1 10 N 

1064 PRINI S(N-I+1) 

1066 NEX T I 
1068 GOTO 100 

1070 IF A$< >". " THEN GOTO 1080 

1071 IF N<1 THEN GOTO 106 

1072 PRINT S(N) 

1074 N=N-l 
1076 GOTO 100 

1080 IF A$< >"DUP" THEN GOTO 1090 

1082 N=N+1 

1084 S(N)=S(N-1) 

1086 GOTO 100 

1090 IF A$<>"DROP" THEN GOTO 1100 
1092 N=N-1 
1094 GOTO 100 

1100 IF A$< >"SWAP" THEN GOTO 1110 
1102 S(N+1)=S <N-1) 

1104 S(N-1)=S(N) 

1 106 S<N>=S<N+1 ) 

1108 GOTO 100 

1110 IF A*<> H OVER aa THEN GOTO 1120 

1112 N=N+1 

1114 S(N)=S<N-2> 

1116 GOTO 100 

1120 IF A$<>">R U THEN GOTO 1130 
1122 M=M+1 
1124 R(M)=S(N) 

1126 N=N-1 
1128 GOTO 100 

1130 IF A$<>"R>" THEN GOTO 1140 
1132 N=N+1 
1134 S <N)=R <M) 

1136 M=M-1 
1138 GOTO 100 

1140 IF A*<> N R6 aa THEN GOTO 1200 
1142 N=N+1 
1144 S(N)=R < M) 

1146 GOTO 100 
1200 REM 

1202 IF A*O aa « ,a THEN GOTO 1210 

1203 N=N-1 

1204 IF 5<N)=SCN+1) THEN GOTO 1207 

1205 S(N)=0 

1206 GOTO 100 

1207 S <N) = 1 

1209 GOTO 100 

1210 IF A*<> ,a >" THEN GOTO 1220 
1212 N=N-1 

1214 IF S(N)>S<N+1) THEN GOTO 1217 

1215 S <N)=0 

1216 GOTO 100 

1217 S(N)=1 

1218 GOIO 100 

1220 IF A$< >"<" THEN GOTO 1230 

1222 N=N—1 

1223 IF S(NXS(N+1> THEN GOTO 1227 

1224 S < N)=0 

1225 GOTO 100 

1227 S(N)=1 

1228 GOTO 100 

1230 IF A*0“IF" THEN GOTO 1250 


1231 
1 232 
1233 
1 234 
1235 
1 236 

1237 

1238 

1239 

1240 

1241 
1 242 
1250 
1252 
1260 
1262 
1270 
1272 
1 274 
1276 
1280 
1282 

1283 

1284 
1286 

1287 

1288 
1289 
1300 


N=N-1 

IF S (N + 1 > f HEN GOTO 100 
FOR 1=1 <K> TO LO <K)—3 
B*=I*<I.1+3) 

IF B$="ELSE" THEN GOTO 1240 
IF B$=“THEN" THEN GOTO 1240 
NEXT 1 
FRINl "IF?" 

GOIO 30 


L(K)=l+4 
GOTO 100 
GOTO 100 
IF A*<>”ELSE" 
GOTO 1233 
IF A*<>"THEN U 
GOTO 100 


THEN GOTO 1260 
THEN GOTO 1270 


IF A$<. > ,1 BEGIN H THEN GOTO 1280 
M=M+1 


R(M)=L(K) 

GOTO 100 

IF A$< > ,, UNTIL M THEN GOTO 1300 
N=N-l 

IF S(N+1) THEN GOTO 1288 
IF S <N +1) THEN GOTO 100 
L ( K )=R(M) 

GOTO 100 
M=M— 1 


GOTO 100 

IF A*O aa DO ,a THEN GOTO 1320 


1302 
1 304 

1 305 
1306 
1308 


M=M+1 
R(M)=L <K) 
M=M+1 


R(M)=S(N-1) 
M=M+ 1 


1309 R(M)=S(N> 

1310 N=N 2 
1312 GOTO 100 

1320 IF A$<. >"LOOP" THEN GOTO 1340 
1322 R Ui) =R < M) + 1 

1324 IF R(M—1) >R <M) THEN GOTO 1330 
1326 M=M- 3 
1328 GOTO 100 
1330 L <K> =R <M-2> 

1332 GOTO 100 
1340 REM 

1500 IF A$<. > a, PI n THEN GOTO 1510 

1502 N=N+1 

1504 S Ui)=3. 14159 

1506 GOIO 100 

1510 IF A*<. > ,, 0 M THEN GOTO 1520 
1512 N=N+1 
1514 S(N)=0 
1516 GOTO 100 

1520 IF A$<>“SI OP' THEN GOTO 1600 
1522 S ! ÜF* 

1 £,00 NUM=1 

1602 FOR 1 = 1 TO LEN<A*> 

1604 IF MID*(A*. I , IX ,a 0" OR MID$(A*,I,1) 
’>"9" THEN NUM=0 

1606 IF 1=1 AMD MID$ <,1,1)=" — " THEN NU 
M= 1 

lö08 NEXI Is IF NüM=0 THEN PRINT A$; " N 
OT DEFINEB”: GOIO 30 


1610 N=N+t 


1612 S(N)=VAl <) 
1614 GOIO 100 


Listing. Ein Forth-Interpreter zum Abtippen (Schluß) 











Trace-Befehl für FIG-Forth 


Hier wird ein neues, nützliches Forth-Wort vorge¬ 
stellt, mit dem man den Ablauf anderer Wörter 
schrittweise untersuchen kann. 

D ie einfachste Art, ein Forth-Wort zu testen, besteht 
darin, es mit den entsprechenden Eingangswerten 
auf dem Stack aufzurufen und dann zu hoffen, daß 
sich kein Fehler eingeschlichen hat. Wenn sich der Computer 
dann noch normal zurückmeldet, der richtige Wert ausgege¬ 
ben wird und der Stack sich in dem Zustand befindet, in dem 
er sich auch befinden sollte, so kann angenommen werden, 
daß das Wort richtig arbeitet. Manchmal aber — und das 
kommt öfter vor, als man möchte—verliert sich der Computer 
in einem Irrgarten und nichts läuft mehr. In diesem Falle ist es 
sehr nützlich, ein Wort zur Verfügung zu haben, das etwa 
einem TRACE-Befehl in Basic entspricht. Solch ein TRACE 
ist aber nicht ganz einfach zu realisieren. Der Grund dafür ist 
unter anderem darin zu suchen, daß es in Forth nicht nur Wör¬ 
ter gibt, die nur 2 Byte Platz in dem Parameterfeld beanspru¬ 
chen, sondern auch ein paar andere, die neben ihrer CFA 
(Code-Feld-Adresse) auch noch Daten ablegen. Dazu gehö¬ 
ren alle strukturierenden Wörter (IF, ELSE, THEN / DO, LOOP, 
+LOOP / BEGIN, UNTIL, WHILE, REPEAT, AGAIN), die ent¬ 
weder BRANCH oder auch OBRANCH compilieren und daran 
noch ihre Sprungweite anhängen. Ebenso zählen LIT und 
CLIT dazu, die außer ihrer CFA noch den Wert der Konstan¬ 
ten eintragen. Nicht zu vergessen auch das Wort das 
ganze Texte in das Parameterfeld speichert. 

Alle Wörter, die in irgendeiner Weise den Returnstack 
manipulieren, sind mit besonderer Vorsicht zu behandeln, da 
ein TRACE-Wort diesen Stack selber benötigt. Die Wörter R), 
R, DO, LOOP, +LOOP, I, P, J, K, LE AVE gehören dazu und 
müssen deshalb von TRACE alle gesondert behandelt wer¬ 
den. Man muß für jedes dieser Wörter eine Routine schrei¬ 
ben, die an einem eigenen Stack diese Manipulationen ent¬ 
sprechend dem originalen Programm durchführt. Alle ange¬ 
gebenen Wörter müssen von »TRACE« gesondert behandelt 
werden. Der ganze Rest aber kann von dem internen Inter¬ 
preter ausgeführt werden. Für sämtliche Returnstack- 
Manipulationen benötigt man neben einem eigenen Return¬ 
stack auch noch den entsprechenden Pointer. 


ONE-STEP ist 
kein neuer Tanzschritt 


Am einfachsten erscheint es deshalb, TRACE als Rahmen¬ 
programm aufzufassen, das die Ein- und Ausgaben durch¬ 
führt und mit dem Anwender kommuniziert. Muß dann einmal 
ein Wort ausgeführt werden, wird ONE-STEP (Listing) aufge¬ 
rufen, das dann das Wort ausführt, auf das der selbst defi¬ 
nierte Instruction-Pointer zeigt. 

In dem Wort ONE-STEP sind dann sämtliche Fälle, die nicht 
von dem inneren Interpreter ausgeführt werden können, ein¬ 
zeln abzuarbeiten. 

Mit dem Wort ONE-STEP können fast alle Forth-Wörter 
getestet werden. Falls es sich bei dem Wort um ein Primitive, 
eine Konstante oder Variable handeln sollte, so wird Ihnen 
das sofort mitgeteilt. Nur Forth-Wörter, die in Highlevel verfaßt 
sind, werden von TRACE auch entsprechend behandelt. 
Wenden Sie TRACE auch mal auf Wörter des Kernais an. 


Dadurch erhalten Sie einen guten Einblick in die Arbeitsweise 
von TRACE, und Sie lernen so auch sehr gut die Programmie¬ 
rung in Forth selbst kennen. 

Hier ein paar Beispiele: 

4 TRACE • 

: • S-)D D.4 ; 

4 . TRACE D. 

: D. 0 D.R SPACE 4 ; 

4 . 0 TRACE D.R 

: D.R )R SWAP OVER DABS (# #S SIGN #) R) OVER 
SPACES TYPE 4 ; 

Sie sehen daran, wie eng verknüpft Forth selbst in so einem 
grundlegenen Wort wie ».« ist. Auch die Decompilereigen¬ 
schaften von Forth sind hier ein wenig dargestellt. 

TRACE funktioniert so lange als Decompiler, bis ein Wort 
auszuführen ist, das in seinem Verlauf eine Ausgabe durch¬ 
führt. Diese Aufgabe, die normalerweise als einzige auf dem 
Bildschirm erscheinen würde, steckt jetzt mitten in dem ent¬ 
schlüsselten Wort und macht es so manchmal etwas proble¬ 
matisch, den genauen Sourcetext zu erkennen. Weiterhin 
werden alle strukturierenden Wörter nicht angezeigt, son¬ 
dern nur deren »Run Time Executive« (BRANCH oder 
OBRANCH) und eventuell auch ausgeführt. 

Es kann sein, daß die Version Ihres Forth nicht ganz genau 
mit der übereinstimmt, die wir eingesetzt haben. So ist zum 
Beispiel das Wort CLIT nicht in jeder Version implementiert. 
Es kann sein, daß Sie das Wort DLIT in Ihrem Programm ver¬ 
treten haben. 


Einfache Anpassung 


Für den Fall, daß Sie kein CLIT haben, lassen Sie die ganze 
Zeile einfach unter den Tisch fallen und tippen gleich ein 
THEN weniger ein. 

Ist das Wort DLIT aber in Ihrer Version enthalten, so müßten 
Sie einfach eine neue Zeile einfügen, ganz der Zeile von CLIT 
entsprechend. Der Unterschied zu CLIT besteht in der Ände¬ 
rung von: 1. Lesebefehl C@ nach D@ (Liest statt einem Byte 
ein Langwort, 32 Bit), 2. IPOI darf nicht nur um 1 erhöht, son¬ 
dern muß um 4 inkrementiert werden. 

In dem Falle, daß sonst noch irgendwelche Wörter in Ihrem 
Forth vorhanden sind, die Daten mit in das Parameterfeld mit 
ablegen (dies kommt oft bei Erweiterungen vor, Strings, spe¬ 
zielle Datenwörter), so müßten Sie diese Wörter selber 
behandeln. Entsprechendes gilt auch für die Returnstack¬ 
manipulierenden Wörter. 

Nicht anwenden sollten Sie TRACE bei Wörtern, die selbst 
nur zur Definition von anderen Datentypen entwickelt wur¬ 
den. Insbesondere die (BUILDS .... DOES)-Funktion funktio¬ 
niert nicht ganz vollständig mit unserem »Trace«. Auch mit 
anderen Wörtern mag es Schwierigkeiten geben, doch diese 
Wörter befinden sich in der Unterzahl. 

Noch ein letzter Hinweis. Der Stackpointer muß nach ord¬ 
nungsgemäßer Beendigung des Wortes auf 0 stehen. Jeder 
andere Wert in SPOI würde bei normalem Ablauf durch den 
inneren Interpreter zum Absturz des Systems führen. Den¬ 
ken Sie bitte auch daran: Wenn das Wort durch »;« beendet 
wird, muß in SPOI eine Null stehen. Deshalb lasse ich den 
Wert dieser Variablen beim Abbruch auch gleich mit 
ausdrucken. 

Für etwaige Anregungen oder Verbesserungsvorschläge 
sind wir dankbar. 

(Bernhard Leikauf/ev) 









0 VARIABLE IPOI 

(Def. Instruction Pointer) 

0 VARIABLE SPOI 

(Def. Returnstack Pointer) 

0 VARIABLE RSTA 38 ALLOT 

(Def. Returnstack für max. 20 Einträge) 

: ONE-STEP IPOI @ 

(Hole IP aus IPOI) 

DUP @ ' OBRANCH CFA = 

(Wort = OBRANCH) 

IF SWAP IF DROP 2 ELSE 

(Nimm Flag vom Stack) 

2+ @ THEN IPOI +! ELSE 

(True Flag. Dann überspringe den Offset False Flag. Addiere den Offset zu IPOI;) 

(führe den Sprung aus) 

DUP @ ' BRANCH CFA = 

(Wort = BRANCH) 

IF 2+ @ IPOI +1 ELSE 

(Addiere den Offset zu IPOI; führe den Sprung immer durch) 

DUP @ ' LIT CFA = 

(Wort = LIT+) 

IF 2+ @ DUP .2 IPOI +! ELSE 

(Hole den 16-Bit-Wert, zeige ihn an und lege ihn auch auf dem Stack ab. Setze IPOI auf das) 
(Wort nach dieser Zahl) 

DUP @ 'CLIT CFA = 

(Wort = CLIT) 

IF 2+ C@ DUP . 1 IPOI +! ELSE 

(Hole den 8-Bit-Wert, zeige ihn an und lege ihn auch auf dem Stack ab. Setze IPOI auf das) 

(Wort nach dieser Zahl) 

DUP @ ' (.") CFA = 

(Wort = (.")) 

IF 2+ COUNT DUP 1+ IPOI +! TYPE 32 EMIT 

(Versetze IPOI auf das Wort hinter dem Text und drucke diesen Text mit »Space« aus) 

ELSE 

DUP @ ' )R CFA = 

(Wort =)R) 

IF DROP RSTA SPOI @+ ! 

(Speichere den Wert auf dem Stack an die) 

2SPOI+! ELSE 

(Adresse, auf die der Stackpointer zeigt und erhöhe dann den Stackpointer um 2) 

DUP @ » R CFA = OVER @ ' I CFA = OR 

(Wort = R oder = I ? dasselbe PRG) 

IF DROP RSTA SPOI @+ 2- @ ELSE 

(Kopiere den Wert, auf den der Stackpointer zeigt, auf den Parameterstack) 

DUP @ 1 R> CFA = 

(Wort = R) ) 

IF DROP RSTA SPOI @+ 2- @-2 SPOI +! 

(Hole den obersten Eintrag des Returnstacks auf den P.stack und dekrementiere den) 

ELSE 

(Stackpointer SPOI um 2) 

DUP @ ' (DO) CFA = IF DROP SWAP RSTA 

(Speichere den Schleifenindex und das) 

SPOI @+ 2! 4 SPOI +! ELSE 

(Maximum auf dem eigenen R.stack ab) 

DUP @ » I' CFA = 

(Wort = I») 

IF DROP RSTA SPOI @ + 4 - @ELSE 

(Hole den zweitobersten Eintrags auf den P. stack) 

DUP @ M CFA = 

(Wort = J) 

IF DROP RSTA SPOI @ + 6 - @ELSE 

(Hole den dritten Eintrag des R.Stacks) 

DUP <g> 'K CFA = 

(Wort = K) 

IF DROP RSTA SPOI @ + 10 - @ELSE 

(Hole den fünften Eintrag des R.Stacks) 

DUP @ ' LEAVE CFA = 

(Wort = LEAVE) 

IF DROP RSTA SPOI @ + 2 - DUP @ SWAP 2- 

(Ändere das Max. der Schleife auf den gegenwärtigen Wert des Schleifenindex (I) ab) 

! ELSE 

DUP @ 1 (LOOP) CFA = 

(Wort) = (LOOP) 

IF RSTA SPOI @ + 2- DUP 1+! DUP 2- @ 

SWAP @) 

(Inkrementiere den Schleifenindex. Hat er das Max. erreicht?) 

IF 2+ @ IPOI +! 

(Führe Sprung zum Schleifenstart aus, wenn I’ ) I) 

ELSE DROP -4 SPOI +! 2 IPOI +! 

(Schleifenende erreicht. Verringere Stackpointer) 

THEN ELSE 

(um 4 (Index und Max.. Dann überspringe den Offset zum Schleifenanfang) 

DUP @ • (+LOOP) CFA = 

(Wort = (+L00P)) 

IF RSTA SPOI @ + 2- ROT OVER +IDUP 2- @ 

(Erhöhe den Schleifenparameter um den angegebenen Wert) 

SWAP @) 

(Ist Jetzt das Maximum erreicht oder schon überschritten?) 

IF 2+ @ IPOI +! 

ELSE DROP -4 SPOI +! 2 IPOI +! 

(Selbe Operation wie bei (LOOP)) 

THEN ELSE 

(Eventuelle weitere Abweichungen von der Norm wären dann hier fortlaufend einzutragen) 

@ EXECUTE 

(Andernfalls ist es ein vom inneren Interpreter) 

(ausführbares Wort und so auch von diesem zu erledigen) 

THEN THEN THEN THEN THEN THEN THEN THEN 

THEN THEN THEN THEN THEN THEN THEN 

2 IPOI +1 

(Abschluß sämtlicher eröffneter Abfragen, stelle nach Erledigen des Wortes IPOI auf) 

(das nächste zu erledigende Wort). 

: TRACE -Find 


IF DROP CFA DUP @ ' ONE-STEP CFA @ = 


IF CR .* 1 : "2+ DUP NFA ID. IPOI ! 0 SPOI ! 

BEGIN IPOI @ @ DUP 2+ NFA ID. 


BEGIN (Warteschleife des Rechners) UNTIL 

• ;S CFA = 7TERMINAL OR IF CR SPOI ? [COMPILE] ,S THEN 

ONE-STEP 


AGA IN 

ELSE ."NO HIGH LEVEL »* DROP THEN 
ELSE ."NOT FOUND »• THEN ; 

Listing. Das vollständige 
»Trace«-Programm. 

Die Kommentare sind 


nicht einzugeben. 
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Turtle-Grafik mit Forth 


Als Beispiel für ein komplexes Programm in Förth 
stellen wir hier ein Grafik-Paket vor. 

O bwohl ursprünglich für den C64 mit HES-Förth 
geschrieben, lohnt es sich sicher auch für die Besit¬ 
zer anderer Computer oder anderer Förth-Versio¬ 
nen, sich mit diesem Grafikpaket etwas näher zu beschäfti¬ 
gen. HES-Förth ist im wesentlichen ein etwas erweitertes 
FIG-Forth. Zur Anpassung an andere Computer brauchen nur 
die systemspezifischen Teile dieses Programm-Pakets ge¬ 
ändert werden. 

Im folgenden Text geben wir eine ausführliche Programm¬ 
beschreibung, die die Arbeit mit diesem Programm erleich¬ 
tern soll. Das gesamte Paket besteht aus drei Teilen: 

- dem High-Resolution-Graphic-Package 
- der Multi-Color-Graphic 
- den Extras 

Das Programm wird durch die Lade-Screens 02,03 und 04 
des Main-File geladen. 

Es steht eine hochauflösende Grafikseite mit einer Auflö¬ 
sung von 320 x 200 Pixel zu Verfügung. Der Punkt (0,0) liegt 
dabei in der linken oberen Ecke. Die Befehle HION und 
HIOFF schalten zwischen dem normalen Arbeitsbildschirm 
und der Grafikseite hin und her. Alle Eingaben können weiter¬ 
hin im direkten Modus erfolgen. Ein Beispiel sieht so aus: 
HION ( Einschalten der Grafik ) 

14 0 CFILL ( Farben einstellen ) 

HCLEAR ( Bildschirm löschen ) 

0 0 319 199 LINK ( Diagonale ziehen ) 

HIOFF ( Ausschalten der Grafik ) 

Entsprechend der üblichen Umgekehrt Polnischen Nota¬ 
tion erwarten alle Worte ihre Parameter auf dem Stack. Wich¬ 
tig sind dabei immer die Leerzeichen (Spaces) zwischen den 
Wörtern. Solange die Grafikseite aktiv ist, sind die Eingaben 
ja nicht sichtbar. 

Bei einem Tippfehler drückt man entweder RUN/RESTORE 
- dabei wird der Stack und der Arbeitsbildschirm gelöscht, 
nicht aber die Grafikseite - und wiederholt die letzte Eingabe. 
Oder aber man gelangt durch HIOFF zurück auf den Arbeits¬ 
bildschirm, der die letzten Eingaben zeigt. Der Händler zur 
Adreßberechnung für X-Werte außerhalb (0/319) und Y- 
Werte außerhalb (0/199) steht in XFORM beziehungsweise 
YFORM und kann vom Benutzer abgeändert werden. 
XFORM und YFORM sind als »wrap-around« initialisiert, das 
heißt (-1,-1) ist gleich (319,319) etc. 

Die Grafik kann als sequentielle Datei auf Diskette gespei¬ 
chert werden, und zwar mittels der Befehle HIWRITE und 
HIREAD. Zuvor ist einmal mit »SEQ name« ein Filename fest¬ 
zulegen. Die beiden Befehle beziehen sich so lange auf 
name, bis dieser mit SEQ geändert wird. 

Der Aufbau der Datei sieht folgendermaßen aus: 

8 KByte Bit-Maß 

1 Byte Hintergrundfarbe 

1000 Byte Farb-RAM (low) 

1000 Byte Farb-RAM (high) 

PLOT und LINK stehen sowohl als High-Level-Wort wie 
auch als Primitive zur Verfügung. Welche Version geladen 
werden soll, wird mit Scr#02 eingestellt. 

Nun zum Laden: 

FILE MAIN 
2 LOAD 
FCLOSE 

Der Ladevorgang nimmt etwa vier Minuten in Anspruch. 


Zusätzlich zur normalen hochauflösenden Grafik bietet das 
Paket eine Multi-Color-Grafik mit 160 x 200 doppelt-breiten 
Punkten, wobei jedes Pixel eine von vier möglichen Farben 
haben kann. Das Ein-/Ausschalten nehmen MON (Multi-Color 
ein) und MOFF (aus) vor. CFILL erwartet jetzt vier Parameter 
(Farben) auf dem Stack. HCOL wählt die Zeichenfrabe 1,2 
oder 3 aus dem mit MCOL definierten Farb-Set. 

Da alle Tastatur-Eingaben das Farb-RAM (high) beeinflus¬ 
sen, sollte man im direkten Modus nicht mit mehr als vier Far¬ 
ben (ändern mit MCOL) arbeiten. ?LOAD veranlaßt beim 
Laden der »Extras« das zusätzliche Einlesen von MPUT und 
MSHAPER. 

Die übrigen Befehle entsprechen den normalen Hires- 
Befehlen. Das Laden der Multi-Color-Grafik erfolgt mit 

FILE MAIN 
3 LOAD 
FCLOSE 

und beansprucht etwa vier Minuten. 

Neben diesen beiden grundsätzlichen Einstellungen findet 
man zusätzlich noch folgende Extras. 

- PAINTER (Zeichenprogramm) 

- SHAPES (der SHAPER erfordert den PAINTER) 

- STRINGS (benötigen die SHAPES) 

- TURTLE (Turtle Grafik 

PaInter 

Per Tastatur-Steuerung kann ein einzelner Punkt auf dem 
Bildschirm bewegt werden und Linien zeichnen oder 
löschen. Der Aufruf erfolgt mit »x y PAINT«, worauf der »Zei¬ 
chenstift« bei (x,y) erscheint. RETURN beendet den Zeichen¬ 
vorgang, aber die letzten Zeichenkoordinaten verbleiben auf 
dem Stack. So kann man entweder mit UNPLOT den letzten 
Zeichenpunkt löschen oder irgendwelche Zwischenrech¬ 
nungen, Farbänderungen etc. vornehmen und den PAINTER 
erneut mit PAINT aufrufen. Es wird immer an der letzen Stelle 
weitergezeichnet. 

Zur Steuerung folgende Details: 

- Farbeinstellung: Funktionstasten fl, f3, f5, f7 

- Pen-Up/Pen-Down: G 

- Bewegen des Zeichenpunktes in acht Himmelsrichtungen: 
R,T,Y,F,H,V,B,N 


Shapes 

Ein Shape ist eine x mal y Punktmatrix, wobei x ein Vielfa¬ 
ches von 8 ausmacht. Ein 3 x 21-Shape besteht demnach 
aus 24 x 21 Punkten, hat also die Größe eines Sprites. 
SHAPE ist eine Compiler-Erweiterung, die beliebig dimensio¬ 
nierte Shapes erzeugt. Der Aufruf »x y SHAPE name« defi¬ 
niert ein x mal y-SHAPE genannt »name«. Die Eingabe dieses 
Namens bewirkt dann stets den Aufruf. 


3 21 SHAPE PETRA 
PETRA ?S 
PETRA CLEAR 
PETRA ?S 
HION 

PETRA SHAPER 

PETRA 100 100 PUT 
PETRA 110 110 PUT 
HIOFF 


(definiert PETRA) 

(zeigt PETRAS Datas an) 
(löscht PETRA) 


(zeichnet Rahmen um PETRA und 
aktiviert den Painter) 
(zeichnet PETRA) 


Anstelle von »name« kann auch »n SPRITE« stehen, wobei 
n (0<n<7) sich auf das Sprite mit der Nummer n bezieht. 
Zuvor aber sollten alle Sprite-Pointer mit IPOINTER einmal 
gesetzt worden sein. 

Die Shapes (beziehungsweise Sprites) lassen sich mit 
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»name SH APEWRITE« unter dem mit SEQ definierten Namen 
als sequentielles File ablegen. Ein Beispiel: 

SEQ GIRL 

PETRA SHAPEWRITE (legt ein sequentielles File 
namens GIRL an, dessen 
Punktemuster PETRA entspricht) 

Wird im Multi-Color-Modus gearbeitet, sollten Sie mög¬ 
lichst MPUT anstatt PUT und MSHAPER statt SHAPER ver¬ 
wenden. 

Strings 

Diese Anweisung stellt ein kleines String-Paket dar und 
zählt ebenfalls zu den Compiler-Erweiterungen. Strings sind 
wie Variable vor Benutzung zu definieren, also »name«. Ihnen 
stehen dann zwei Eingabevarianten frei: »name INPUT« ent¬ 
spricht in Basic »GETA« oder »name =$ text«, das 
»A$= "text"« gleichkommt. Die Ausgabe erfolgt mit »name« 
(Arbeitsbildschirm) oder »name x y PUT$« (Grafikseite). 

»n CHR« verhält sich wie ein 1 x 8-Shape, dessen Punkte¬ 
muster dem Zeichen mit dem Bildschirm-Code n entspricht. 
Turtle 

Die Turtle-Grafik baut auf dem Hires- und Multi-Color-Paket 
auf und umfaßt alle Grafikbefehle des Commodore-Logo. Es 
beansprucht lediglich 456 Byte (!), was die Leistungsfähig¬ 
keit von Forth gut illustriert. Die Koordinaten der Turtle stehen 
immer als oberste Zahlen auf dem Stack (Achtung!), also die 
Richtung der Schildkröte in der Variablen HEADING. Bei der 
Übertragung von Logo-Programmen muß die UPN von Forth 
beachtet werden. Statt »FORWARD 10« erwartet Forth die 10 
auf dem Stack, also »10 FORWARD«. 

Der Punkt (0,0) liegt wie gewohnt in der linken oberen Ecke 
und nicht, wie bei den meisten Logo-Versionen, in der 
Bildschirmmitte. Dies kann der Benutzer durch »: MOVE 
LFORN...;« und entsprechende Definition von LFORN nach 
Bedarf ändern. 

Alle Turtle-Befehle können natürlich wie bei Logo abge¬ 
kürzt werden. Sie schreiben dann statt »10 FORWARD« ein¬ 
fach »10 FD« und so fort. Die Turtle sollte sich nicht mehr als 
30000 Punkte in jeder Richtung vorwärts bewegen (2-Byte- 
Arithmetik). Der Befehl TURTLE initialisiert die Schildkröte 
und das Farb-RAM, löscht die Grafikseite und sollte nur dann 
aufgerufen werden, wenn man sich das HION ersparen will - 
also nicht von der Grafikseite aus. Ein Beispielprogramm: 

: LINIE 50 FD 90 RT ; 

: QUADRAT LINIE LINIE LINIE LINIE 
: ROSETTE 3 6 0 DO QUADRAT 10 RT 12 FD LOOP ; 

TURTLE ROSETTE 

Soweit der allgemeine Überblick über die einzelnen, im 
Turtle-Forth enthaltenen Programm-Pakete. 

Die Screens von Turtle-Forth 

SCR#1: nicht verwendet. 

SCR#2 bis 4: Lade-Screens. SCR#2 lädt die normale 
Hires-Grafik, wobei die Befehle PLOT und LINK wahlweise als 
Primitive (SCR#70 bis 77) oder als High-Level (SCR #12 
bis 13 und 20) definiert werden - je nachdem wie die Klam¬ 
mern in SCR#2 stehen. 

SCR # 3 lädt die Multi-Color-Grafik, bei der sowohl der nor¬ 
male als auch der Multi-Color-Modus zur Auswahl stehen 
kann. Die Umschaltung zwischen den beiden Modi erfolgt Mit 
den Wörtern MON beziehungsweise MOFF. Zu beachten ist, 
daß der Dictionary-Pointer zwischendurch auf 16384 hoch¬ 
gesetzt wird, um 8 KByte Platz für die Bitmap zu schaffen 
(siehe rechts). SCR # 4 lädt die Extras, die natürlich auch ein¬ 
zeln zu verwenden sind. 

SCR #5 bis 9: nicht verwendet. 

SCR #10 bis 11: Diese beiden Screens enthalten die 
Installation der hochauflösenden Grafik und müssen dem 


Computertyp angepaßt werden. Die hier vorgestellten Wörter 
gelten für den Commodore 64. 

Zunächst werden 1000 Byte Platz geschaffen, um den 
Bildschirm zwischenzuspeichern. Das bezweckt, daß Sie 
auch bei eingeschalteter Hires-Grafik weiterhin alle Befehle 
im Direktmodus eingeben können. SCREENSWAP besorgt 
die Speicherverschiebung und benutzt das Wort NSWAP 
(adr 1 adr 2 n - ), welches n Byte zwischen den Adressen 
adr, und adr 2 austauscht. SCRON beziehungsweise 
SCROFF schalten den Videochip ein und aus, um einen sau¬ 
beren Übergang beim Einschalten der Grafik zu erzielen. 

HION und HIOFF besorgen die Umschaltung auf hochauf¬ 
lösende Grafik. Falls Sie mit einem anderen Computer als 
dem C64 arbeiten, müssen hier natürlich andere »Pokes« 
stehen, die Sie dem Benutzerhandbuch entnehmen können. 

Falls die Hires eingeschaltet ist, legt HION? ein Flag 
(ungleich Null) auf den Stack, ansonsten eine Null. SCREEN 
teilt dem Bildschirmeditor des Betriebssystems mit, wo der 













Eingabe-Bildschirm liegt. Bei ausgeschalteter Hires befindet 
er sich ab Register 1024 (also Page 4), bei eingeschalteter 
Hires, also nach SCREENSWAP ab Register 4096 (also 
Page 16). 

Bei Forth-Programmen empfiehlt es sich, Wort für Wort ein¬ 
zugeben und auszutesten. Dann weiß man nämlich sicher, wo 
man steht und spart sich viel Ärger beim Fehlersuchen. Sie 
kennen nun alle Wörter, um mit der hochauflösenden Grafik 
auch umzugehen. 

SCR #12 bis 13: Mit PLOT und UNPLOT setzen oder 
löschen Sie die einzelnen Punkte. -PLOT bewirkt PLOT oder 
UNPLOT je nach Verhältnis der Variablen VPLOT und 
VBREAK. Es wird von LINK benutzt. Dadurch ist auch 
UNLINK einfach als Spezialfall von LINK zu definieren und 
zudem lassen sich alle Linien auch unterbrochen (BREAK) 
darstellen. - 

ADR bewirkt die Adreß-Umrechnung von X/Y-Koordinaten 
in die Registeradresse der Bitmap. 

SCR # 14 bis 15: Bevor wir mit der Hires (CIRCLE) fortfah¬ 
ren, wollen wir die Multi-Color-Grafik installieren. SCR #14 
und 15 entsprechen bis auf kleine Details SCR # 10 und 11. 

SCR #16 bis 19: Hier wirkt eine trickreiche Programmier- 
Technik. Damit sowohl die Arbeit mit normaler Hires als auch 
mit Multi-Color-Hires möglich ist, sind die meisten Wörter 
zweimal zu definieren. Um den gleichen Namen wieder zu 
verwenden, werden die Wörter vektoriell ausgeführt. 

Zum Beispiel PLOT. Es führt das Wort aus (EXECUTE), das 
in der Variablen ’PLOT steht. Dort befindet sich im normalen 
Hires-Modus die Code-Feld-Adresse (CFA) von PLOT.H im 
Multi-Color-Modus dagegen die CFA von PLOT.M. Das Ein¬ 
beziehungsweise Ausschalten mit MON und MOFF ändert 
also lediglich die Vektoren ’PLOT ’ADR etc. ab. MCON und 
MCOFF bewirken dabei die eigentlichen »Pokes«, um den 
entsprechende Grafik-Modus einzuschalten. 


SCR # 20: Auf dem PLOT-Befehl aufbauend zeichnen wir 
jetzt eine Gerade, das heißt, alle Punkte zwischen zwei Koor¬ 
dinaten. LINK verwendet, je nachdem, ob die Steigung der 
Geraden mehr als 45 Grad beträgt, LINX oder LINY. Nun gibt 
auch BREAK einen einleuchtenden Sinn. 

SCR #21 bis 23: Um einen Kreis zu zeichnen, benötigen 
wir eine Sinus- oder Cosinus-Funktion. Das scheint schwie¬ 
rig, da Forth doch keine Fließkommazahlen kennt. 

Wir erzeugen uns jedoch einfach Grad für Grad eine Liste 
der Sinuswerte. (Wegen der Beziehung cos a = sin (90-a) 
kann man sich eine Cosinus-Liste sparen.) Das entschei¬ 
dende Wort ist nun CIRC. Es berechnet aus dem Winkel a die 
Koordinaten x und y unter Benutzung des Radius, der in der 
Variablen RAD stehen soll. ARC zeichnet dann einen Kreis¬ 
bogen, wobei die mit CIRC gewonnenen Koordinaten mit 
dem Quotienten EPS/100 multipliziert werden, so daß sich 
die Kreise stauchen und dehnen lassen. EPS ist zu 100 initia¬ 
lisiert. Es entstehen also wirklich Kreise, solange man die 
Exzentrität nicht mit EXCENTER ändert. CIRCLE ist dann nur 
noch ein Spezialfall von ARC. 

SCR #24: SCR #24 demonstriert schön die Förth- 
Philosophie: NGON zeichnet offene, POLYGON geschlos¬ 
sene Kurvenzüge. Beide benutzen dazu ein Wort namens 
GON. TRIC und REC, also Drei- und Vierecke - Spezialfälle 
geschlossener Kurven - arbeiten also mit POLYGON. QUA¬ 
DRAT wiederum ist ein Sonderfall von REC. 

SCR # 25 bis 27: Hier wird das Wort SYS (a x y adr - a x y) 
benötigt, das nicht dem FIG-Wortschatz entstammt. Die FIG- 
Definition eines solchen Wortes findet sich im Texteinschub 
»Einbinden von Betriebssystem-Routinen«. SF ist eine 
Stringvariable, die mit SEQ eingelesen und mit .SEQ ausge¬ 
geben wird. 

SWRITE ruft einige Betriebssystem-Routinen zur sequen¬ 
tiellen Datenspeicherung auf: 


2DR0P (n t i >2 - ) 



Drop Drop 


3DR0P ( nj nj nj - ) 



over over 


2SWAP ( ni n 2 n^ n 4 - 113 n 4 n£ ) 



> R ROT ROT R > ROT ROT 


: SYSTEM j 

2DR0P DROP DROP ; SYSTEM aktiviert bei HES-FORTH ein Vokabular, 

3DR0P DROP DROP DROP ; welches das Wort SYS enthält. Wie SYS 

2DUP OVER OVER ; definiert werden kann, zeigt der 

2SWAP >R ROT ROT R> ROT ROT ; Texteinschub über Betriebssystem-Routinen. 














$ FFBD Setnam 

$ FFBA Setlfs 

$ FFCO Open 

$ FFC9 CHKOUT 

SREAD ruft auf: 

$ FFBD Setnam 

$ FFBA Setlfs 

$ FFCO Open 

$ FFC6 CHKIN 

SCLOSE ruft auf: 

$ FFC3 Close 

$ FFCC Clrchn 

So lassen sich einzelne Bytes (TO FROM) und ganze Spei¬ 
cherbereiche (TOS FROMS) auf Diskette sequentiell spei¬ 
chern. Diese Routinen sind Commodore-spezifisch und sind 
auf anderen Computern unbrauchbar. Die Befehle sind aber 
sicherlich für viele C64-Forth-Programme äußerst nützlich. 

SCR #28: HIWRITE und HIREAD benutzen nun die Fähig¬ 
keit zu sequentieller Datenspeicherung, um Grafiken zu spei¬ 
chern und wiederzulesen. Folgende Adreßbereiche können 
bearbeitet werden.: 

1.8 KByte Bitmap (8192 bis 16383) 

2. Hintergrund (53281) 

3. Bildschirm (1024 bis 2023 beziehungsweise 4096 bis 
5095) 

4. Farbspeicher (55296 bis 56295) 

SCR # 29: nicht verwendet. 

SCR#30 bis 32: Painter-Package (tastaturgesteuertes 
Zeichenprogramm). 

SCR #33 bis 39: nicht verwendet. 

SCR #40 bis 42: Shape-Package (Teil 1). 

SCR #43 bis 44: nicht verwendet. 

SCR #45 bis 46: Shape-Package (Teil 2). 

SCR #47 bis 49: nicht verwendet. 

SCR # 50: String-Package, grundsätzliche Definitionen. 
SCR # 51 bis 54: nicht verwendet. 

SCR # 55 bis 57: String-Package, zusätzliche Funktionen. 
SCR # 58 bis 59: nicht verwendet. 

SCR # 60 bis 61: Turtle-Package, stellt in nur zwei Screens 
alle für die Turtle-Grafik notwendigen Befehle zusammen. 
SCR #62 bis 69: nicht verwendet. 

SCR # 70 bis 77: Nun lernen Sie die Wörter PLOT und LINK 
auch als Primitive (für C 64) kennen. Dazu benötigen Sie das 
Assembler-Vokabular Ihres FIG-Forth und ein ganzes Stück 
Arbeit, um die Screens einzugeben. Dafür haben Sie dann 
aber auch einen sehr schnellen LINK-Algorithmus. 

XFORM und YFORM passen die Koordinaten an, die 
»außerhalb« liegen, das heißt, die Werte 0 > x > 319 oder 
0 > y > 199, so daß Linien, die auf einer Seite herauslaufen, 
auf der anderen wieder auftauchen. (»Wrap-Around«.) Der 
fortgeschrittene Programmierer kann sich diese Wörter auch 
so abändern, daß die Linie am Rand einfach abbricht, also 
einen maximalen Wert nicht überschreitet (»Clipping«), 
Bemerkenswert ist vielleicht, daß UNLINK den Code von 
LINK abändert, indem es die Adresse von UNPLOTCODE in 
den Code-Body von PLOTIT schreibt und dann einfach LINK 
aufruft. Dies ist eine Programmiertechnik, die sehr mit Vor¬ 
sicht zu genießen ist! 

Eine Liste aller Befehle mit ihren Wirkungen ist in der 
Tabelle (rechts) enthalten. 

Aufbauend auf dem Grundprogramm können Sie eine Viel¬ 
zahl eigener Programme verwirklichen. Als Anregung einige 
Beispiele, wie das tastaturgesteuerte Zeichenprogramm 
(PAINTER), das Speichern und Kopieren von beliebigen Bild¬ 
schirmausschnitten (SHAPES), der Sprite-Generator 
(SHAPER) oder die Logo entlehnte Schildkröte (TURTLE). 
Schließlich können Sie auch Texte (STRINGs) aus dem 
Character-ROM auslesen und in die HiRes einbringen. 

(Andreas Carl/ev) 


(1) HiRes 

HIBASE 

(- 8192) 

Adresse des ersten Bytes 

SCROFF 

(-) 

ausschalten des Video-Chip 

SCRON 

(-) 

einschalten des Video-Chip 

HION 

(-) 

umschalten auf Grafikbildschirm 

HIOFF 

(-) 

umschalten auf Arbeitsbildschirm 

HION? 

(-f) 

Grafikbildschirm eingeschaltet? 

HFILL 

(n-) 

füllt die Grafikseite mit dem Byte n 

HCLEAR 

(-) 

löscht den Grafikbildschirm 

HCOL 

(n-) 

wählt Zeichenfarbe 0 < n < 15 

CFILL 

(bc-) 

füllt den Farbspeicher mit der Hintergrundfarbe 

ADR 

(xy-a) 

b und der Zeichenfarbe c 

Wandelt die Koordinaten x, y in die Bitmap- 

PLOT 

(xy-) 

Adresse a um 
setzt Zeichenpunkt 

UNPLOT 

(xy-) 

löscht Zeichenpunkt 

?PL0T 

i 

X 

Zeichenpunkt gesetzt? 

XFORM 


Händler für Koordinaten, die »außerhalb« 

LINK 

(x 0 y 0 xiyi -) 

liegen; 

verbindet zwei Punkte Po und Pi 

UNLINK 

(x 0 yo xiyi -) 

löscht die Verbindungslinie zweier Punkte Po 

BREAK 

(n-) 

und Pi 

definiert die Länge der Teile von gebrochenen 

NGON 

(x 0 y 0 . • x n -i • .y n -i 

Linien. Ist zu n = 30000 initialisiert 


n -) 

verbindet n Punkte Po bis P n —1 

POLYGON 

(x 0 y 0 .. Xn-iyn-i n - 

-) verbindet n Punkte Po bis Pn —1 zu einem 

TRIC 

(x 0 y 0 xiyi x 2 y 2 -) 

geschlossenen Kurvenzug 
zeichnet ein Dreieck P 0 P 1 P 2 

REC 

(x 0 y 0 ab-) 

zeichnet ein Rechteck mit der Länge und der 

QUADRAT 

(x 0 yo a -) 

Höheb 

zeichnet ein Quadrat mit der Kantenlänge a 

CIRCLE 

(x 0 yo rda-) 

zeichnet einen Kreis um den Mittelpunkt Po mit 

ARC 

(xoyo r «o ai da-) 

dem Radius r in Schritten von je d a Grad 
zeichnet einen Teilkreis von ao Grad bis ai 

ANGL 

xoyo r a -) 

Grad 

zeichnet Radius eines Kreises zum Winkel a 

EXCENTER 

(n-) 

bestimmt die Exzentrizität für CIRCLE, ARC 

SEQ name 

(-) 

und ANGL; n= 100 bedeutet r x : r y = 1 
legt Filenamen für folgende Diskettenoperatio¬ 

.SEQ 

(-) 

nen fest 

zeigt Filenamen an 

SWRITE 

(-) 

öffnet sequentielles Schreibfile 

SREAD 

(-) 

öffnet sequentielles Lesefile 

SCLOSE 

(-). 

schließt sequentielles File 

TO 

(-) 

schreibt Byte b in offenes File 

TOS 

(a n -) 

schreibt n Bytes ab der Adresse a in offenes 

FROM 

(-») 

File 

liest Byte b ein 

FROMS 

(an-) 

liest n Bytes ein und speichert sie ab der 

HIWRITE 

(-) 

Adresse a 

schreibt 8 KByte HiRes plus 3 KByte Farbinfor¬ 

HIREAD 

(-) 

mation in sequentielles File 

liest HiResgrafik aus sequentiellem File ein 

SHAPEWRITE (-) 

speichert Shapes oder Sprites in sequentielles 

SHAPEREAD 

(-) 

File 

liest Shape oder Sprite 

(2) Multi-Color-Grafik 


alle Befehle wie (1) und zusätzlich: 

MON 

(-) 

schaltet auf Multi-Color-Mode um 

MOFF 

(-) 

schaltet auf Normal-Mode um 

MFLAG 

(- d 

Multi-Color-Mode eingeschaltet? 

CFILL 

(b cic 2 c 3 -) 

füllt die Farbspeicher 

MCOL 

(C 1 C 2 C 3 -) 

wählt die drei Zeichenfarben (0 < c < 15) 

HCOL 

(n-) 

wählt aktuelle Farbe für PLOT etc. (n = 1,2,3) 


Die Befehle des Grafik-Pakets 











Listing »Turtle-Grafik« in Forth (Fortsetzung) 


SCR # 18 

0 < COHT. ) 


1 

* ADR, H 

CFA 

VARIABLE 

'ADR 

2 

' ?PLOT,H 

CFA 

VARIABLE 

' ?PLOT 

3 

• PLOT,H 

CFA 

VARIABLE 

'PLOT 

4 

' UNPLOT,H 

CFA 

VARIABLE 

'UNPLOT 

5 

* HCOL, H 

CFA 

VARIABLE 

'HCOL 

6 

' CFILL, H 

CFA 

VARIABLE 

'CFILL 


7 

8 : ADR 'ADR 8 EXECUTE ; 

9 : ?PLOT '7PL0T 8 EXECUTE j 

10 j PLOT 'PLOT 0 EXECUTE j 

11 : UNPLOT 'UNPLOT 8 EXECUTE ; 

12 s -PLOT VPLOT 8 VBREAK 8 / 2 MOD 

13 0* IF PLOT ELSE UNPLOT ENDIF VPLOT DUP 8 1* SWAP I j 

14 : HCOL 'HCOL 8 EXECUTE ; 

15 : CFILL 'CFILL 8 EXECUTE ; —> 

SCR # 19 

0 ( CONT. ) 

1 
2 

3 : HCON 53270 Ce 16 OR 53270 CI ; 

4 : HCOFF 53270 C8 239 AND 53270 CI 

5 

6 : NON HCON ' PLOT, H CFA 'PLOT I ' 

7 ' HCOL,H CFA 'HCOL I ' 

8 ' ADR,H CFA 'ADR I ' 

9 1 ' HFLAG l ; 

10 : HOFF HCOFF ' PLOT,H CFA 'PLOT l 

11 ' HCOL,H CFA 'HCOL I 

12 ' ADR,H CFA 'ADR I 

13 0 ' HFLAG I ; 

14 

15 

SCR • 20 

0 ( LINK ) 

1 

2 0 VARIABLE DX 0 VARIABLE DY 

3 

4 : TO DUP 0< IF 1 - -1 NSTEP l ELSE 1 ♦ 1 NSTEP I ENDIF ; 

5 

6 ; LINX DO DUP I DY 8 DX 8 »/ ♦ 

7 ROT DUP I ♦ ROT -PLOT SWAP NSTEP 8 »LOOP 2DR0P ; 

8 : LINY DO DUP I DX 8 DY 8 •/ ♦ 

9 ROT DUP I ♦ ROT SWAP -PLOT SWAP NSTEP 8 ♦LOOP 2DR0P ; 

10 

11 : LINK INIPLOT ROT >R I - DY I SWAP >R I - DX I 

12 R> R> DX 8 ABS DY 8 ABS > IF DX 8 TO 0 LINX 

13 ELSE SWAP DY 8 TO 0 LINY ENDIF ; 

14 : UNLINK VBREAK 8 >R 0 VBREAK I LINK R> VBREAK I ; 

15 


; 

UNPLOT,H CFA 'UNPLOT I 
CFILL,H CFA 'CFILL I 
?PLOT,H CFA '?PLOT I 

' UNPLOT,H CFA 'UNPLOT I 
' CFILL,H CFA 'CFILL I 
' ?PLOT,H CFA '7PL0T I 


0 VARIABLE NSTEP 


SCR # 21 

0 ( SINUS ) 


1 0 

VARIABLE 

: SINA 

175 , 

349 , 523 , 698 

, 872 

, 1045 

, 1219 

, 1392 

2 

1564 , 

1763 , 

1908 

, 2079 , 

2250 , 

2419 , 

2588 , 

2756 , 

2924 

3 

3090 , 

3256 , 

3420 

, 3584 , 

3746 , 

3907 , 

4067 , 

4226 , 

4384 

4 

4540 , 

4695 , 

4848 

, 5000 , 

5150 , 

5299 , 

5446 , 

5592 , 

5736 

5 

, 5878 , 

6018 , 

6157 

, 6293 , 

6428 , 

6561 , 

6691 , 

6820 , 

6947 

6 

, 7071 , 

7193 , 

, 7314 

, 7431 , 

7547 , 

7660 , 

7771 , 

7880 , 

7986 

7 

, 8090 , 

8192 , 

, 8290 

, 8387 , 

8480 , 

8572 , 

8660 , 

8746 , 

8829 

8 

, 8910 , 

8988 , 

, 9063 

, 9135 , 

9205 , 

9272 , 

9336 , 

9397 , 

9455 

9 

, 9511 , 

9563 , 

, 9613 

, 9659 , 

9703 , 

9744 , 

9781 , 

9816 , 

9848 

10 

, 9877 , 

9903 

, 9925 

, 9945 , 

9962 , 

9976 , 

9986 , 

9994 , 

9998 


11 , 10000 , 

12 

13 : SIN8 2 • SINA ♦ 8 10000 SWAP ; 

14 : C0S8 90 SWAP - SIN8 ; 

15 

SCR # 22 

0 ( CIRCLE ) 

1 

2 0 VARIABLE DA 0 VARIABLE RAD 100 VARIABLE EXC 

3 

4 s CNORH BEGIN DUP 0 < WHILE 360 ♦ REPEAT 

5 BEGIN DUP 360 > WHILE 360 - REPEAT f 

6 

7 t SIN CNORH DUP DUP ABS / SWAP ABS DUP 90 < IF SIN8 ELSE 

8 DUP 180 < IF 180 SWAP - SIN8 ELSE 

9 DUP 270 < IF 180 - SIN8 -1 * ELSE 

10 360 SWAP - SIN8 -1 • ENDIF ENDIF ENDIF ROT * t 

11 s COS 90 SWAP - SIN } 

12 

13 : EPS EXC 8 100 •/ ; 

14 : EXCENTER EXC I ; 

15 

SCR * 23 

0 ( CONT. ) 

1 

2 0 VARIABLE CX 0 VARIABLE CY 

3 

4 : CIRC RAD 8 OVER SIN SWAP •/ RAD 8 ROT COS SWAP •/ | 

5 

6 : ARC DA I 2DUP > IF DA DUP 8 -1 • SWAP I ENDIF 


7 >R >R RAD I CY I CX I R> R> SWAP 

8 DO I CIRC CX 8 ♦ SWAP EPS CY 8 ♦ R> DA 8 ♦ >R 

9 I CIRC CX 8 ♦ SWAP EPS CY 8 ♦ R> DA 8 - >R 

10 LINK DA 0 »LOOP ; 

11 : CIRCLE 0 360 ROT ARC ; 

12 : ANGL >R RAD l 2DUP R> CIRC >R ♦ SWAP R> ♦ SWAP LINK ; 

13 

14 

15 

SCR « 24 

0 ( POLYGON ) 

1 

2 0 VARIABLE B 0 VARIABLE L 

3 

4 : GON 1 DO >R >R 2DUP R> R> 2SWAP LINK LOOP ; 

5 : NGON GON 2DR0P ; 

6 : POLYGON ROT ROT >R DUP I SWAP >R ROT GON R> R> LINK ; 

7 s TRIC 3 POLYGON ; 

8 : REC 1 - B I 1 - L I 

9 2DUP L 8 ROT ♦ SWAP 

10 2DUP B 8 ♦ 

11 2DUP L 0 ROT SWAP - SWAP 

12 2DUP B 8 - 

13 5 NGON ; 

14 : QUADRAT DUP REC ; 

15 


SCR « 25 

0 ( SEQUENTIELLE FILES ) 

1 


2 

3 

0 VARIABLE SF 20 ALLOT 


4 

> SEQ 34 WORD HERE SF 20 CHOVE 

1 

5 

6 

: .SEQ SF COUNT TYPE f 


7 

« NAH,S,X SF COUNT ♦ DUP ASCII 

, SWAP CI 

8 

l* DUP ASCII 

S SWAP CI 

9 

1* DUP ASCII 

, SWAP CI 

10 

1* 

CI 

11 

SF DUP C8 4 ♦ SWAP 

CI l 

12 

: NAH,S,W ASCII W NAH,S,X ; 


13 

14 

15 

t NAH,S,R ASCII R NAH,S,X ; 


SCR 

# 26 


0 

( CONT. ) 


X 

2 

3 

HEX 0 VARIABLE SPSAVE 


4 

: OFFSPRITE D015 C8 SPSAVE CI 0 

DO15 CI ; 


5 : OLDSPRITE SPSAVE C@ D015 CI i 

6 

7 t SWRITE OFFSPRITE CR .■ WRITING ■ .SEQ 

8 SYSTEH NAH,S,W SF COUNT SWAP 100 /HOD FFBD SYS 

9 3DR0P SF DUP C8 4 - SWAP CI 

10 282 FFBA SYS FFCO SYS 3DR0P 

11 020 FFC9 SYS 3DR0P ; 

12 

13 : TO SYSTEH 0 0 FFD2 SYS 3DR0P > 

14 } TOS 0 DO DUP I ♦ C0 TO LOOP DROP ; —> 

15 

SCR « 27 

0 < CONT. ) 

1 

2 

3 : SREAD OFFSPRITE CR .• READING • .SEQ 

4 SYSTEH NAH,S,R SF COUNT SWAP 100 /HOD FFBD SYS 

5 3DR0P SF DUP C8 4 - SWAP CI 

6 282 FFBA SYS FFCO SYS 3DR0P 

7 0 2 0 FFC6 SYS 3DR0P ; 

8 

9 : SCLOSE OLDSPRITE SYSTEH 200 FFC3 SYS FFCC SYS 3DR0P j 

10 

11 : FROH SYSTEH 000 FFCF SYS 2DR0P ; 

12 j FROHS 0 DO FROH OVER I ♦ CI LOOP DROP } 

13 

14 DECIHAL 

15 

SCR * 28 

0 < WRITE/READ ) 

1 

2 

3 : HIWRITE SWRITE 8192 DUP TOS 53281 C e T0 

4 HION? IF 1024 ELSE 4096 ENDIF 1000 TOS 

5 55296 1000 TOS SCLOSE j 

6 t HIREAD SREAD 8192 DUP FROHS FROH 53281 CI 

7 HION? IF 1024 ELSE 4096 ENDIF 1000 FROHS 

8 55296 1000 FROHS SCLOSE j 

9 

10 : SHAPEWRITE SWRITE * TOS SCLOSE ; 

11 : SHAPEREAD SREAD • FROHS SCLOSE ; 

12 

13 

14 

15 










SCR # 30 

0 < PAINTER ) 

1 0 VARIABLE OLD 

2 : REPON 128 650 CI ; 

3 : REPOFF 0 650 CI ; 

4 s KILL 2DUP UNPLOT ; 

5 : PLOTOVER 2DUP ADR OLD <ü SWAP CI ; 

6 : DRAW ; 

7 ' DRAW CFA VARIABLE LASTVECTOR 

8 ' PLOTOVER CFA VARIABLE PENHODE 

9 : UP/DOWN PENHODE @ LASTVECTOR 0 PENNODE I LASTVECTOR I 

10 s ?DQWN ' PLOTOVER CFA PENNODE 0 * ; 

11 : SETMODUS ?DOWN IF LASTVECTOR I ELSE PENNODE I ENDIF j 

12 : DODRAW ' DRAW CFA SETHODUS ; 

13 : DOKILL ' KILL CFA SETNODUS j 

14 : LASTPLOT >R LASTVECTOR 0 EXECUTE R> j 

15 : NEXTPLOT 2DUP ADR C@ OLD I 2DUP PLOT ; 

SCR # 31 

0 ( CONT. ) 

1 j SLOPE BEGIN KEY DUP 13 * 0- WHILE LASTPLOT 

2 DUP 72 * IF >R SWAP 1+ SWAP R> ENDIF 

3 DUP 78 « IF >R 1* SWAP i* SWAP R> ENDIF 

4 DUP 66 » IF >R 1* R> ENDIF 

5 DUP 86 » IF >R 1* SWAP 1 - SWAP R> ENDIF 

6 DUP 70 * IF >R SWAP 1 - SWAP R> ENDIF 

7 DUP 82 * IF >R 1 - SWAP 1 - SWAP R> ENDIF 

8 DUP 84 « IF >R 1 - R> ENDIF 

9 DUP 89 = IF >R 1 - SWAP 1* SWAP R> ENDIF 

10 DUP 71 * IF UP/DOWN ENDIF 

11 DUP 133 * IF 3 HCOL DODRAW ENDIF 

12 DUP 134 > IF 2 HCOL DODRAW ENDIF 

13 DUP 135 - IF 0 HCOL DODRAW ENDIF 

14 136 > IF DOKILL ENDIF 
NEXTPLOT REPEAT DROP 


6 0 DO I HERE 0 HOD 0* IF 1 PY ♦! 16 PX I 

7 ELSE 8 PX H ENDIF 

8 PX 0 PY 0 ADR C@ OVER CI 1< LOOP DROP ; 

9 s SHAPER HCLEAR 3DUP FRAHE 17 17 PAINT 

10 2DR0P DEFSHAPE ; 

11 

12 : SPRITE 2040 ♦ Cd 64 t 3 21 ; 

13 « IPOINTER 8 0 DO 48 I ♦ 2040 I ♦ CI LOOP ; 

14 


: HPUT SY I SX I DY I DX I 0 SWAP 

DX 0 DY 0 • 0 DO DUP I ♦ C0 >BIT 8SWAP 
4 0 DO 2 * ♦ DUP 


0 DO 2 * ♦ DUP 

IF HCOL SX 0 SY 0 PLOT 

ELSE DROP SX ® SY 0 UNPLOT ENDIF 

1 SX *1 LOOP 

>R 1* DUP DX 0 HOD 0- IF 1 SY ♦! 

-4 DX 0 • SX ♦ ! 
ENDIF R> LOOP 2DR0P ; 


SCR « 46 
0 


( HSHAPER ) 


3 s HFRAHE ROT DROP 2♦ SWAP 4 • 2♦ SWAP 7 15 2SWAP REC ; 

4 » DEFHSHAPE OVER HERE I • 16 PX I 15 PY I 

5 0 DO I HERE 0 HOD 0* IF 1 PY t| 16 PX I 

6 ELSE 8 PX t| ENDIF 

7 PX ä PY 0 ADR,H CG OVER CI !♦ LOOP DROP ; 


: PAINT 2DUP PLOT 

' DRAW CFA LASTVECTOR I 

' PLOTOVER CFA PENNODE I 
REPON SLOPE REPOFF ; 


9 j HSHAPER HCLEAR 3DUP HFRAHE 9 17 PAINT 
10 2DR0P DEFHSHAPE ; 


( STRING-PACKAGE ) 


9 <BUILDS 78 ALLOT DOES> ; 


SCR * 40 
0 


0 VARIABLE PARITY 


s INPUT9 0 IN l TIB d 80 EXPECT 34 WORD 
HERE SWAP 80 CHOVE ; 

: >1 34 WORD HERE SWAP 80 CHOVE ; IHHEDIATE 

: .9 COUNT TYPE j 

: LEN COUNT SWAP DROP ; 


4 : SHAPE <BUILDS OVER 


DUP , • ALLOT 

5 DOES> >R R 4 ♦ R ö R> 2» 0 | 

6 : CLEAR * 0 DO 0 OVER I ♦ CI LOOP DROP } 

7 : ?S OVER HERE I • 0 DO I HERE 0 HOD 0* 

8 IF CR ENDIF DUP I ♦ C0 4 . R LOOP DROP ; 

9 : DIH ROT DROP ; 

10 : ZAHL? 0 IN I TIB 0 10 EXPECT 

11 32 WORD HERE NUHBER DROP ; 

12 t INPUT OVER PARITY I « 0 DO I PARITY 0 HOD 0= IF CR ENDIF 

13 ZAHL? OVER I ♦ CI LOOP DROP > 


SCR # 41 
0 


( CONT. ) 
0 VARIABLE SX 


1 0 VARIABLE SX 0 VARIABLE SY 

2 

3 t >BIT 8 0 DO 2 * >R I 256 / R> 255 AND LOOP DROP ; 

4 1 8SWAP 8 0 DO HERE I ♦ CI LOOP 

5 8 0 DO HERE I ♦ Cd LOOP ; 

6 t PUT SY I SX I DY I DX I 0 SWAP 

7 DX 0 DY 0 • 0 DO DUP I ♦ C0 >BIT 8SWAP 

8 8 0 DO SX 0 SY 0 ROT 

9 IF PLOT ELSE UNPLOT ENDIF 

10 1 SX ♦! LOOP 

11 >R 1* DUP DX 0 HOD 0* IF 1 SY H 

12 -8 DX 0 • SX ♦! 

13 ENDIF R> LOOP 2DR0P 


CODE 0CHAR 254 » LDA, 56334 AND, 56334 STA, 
251 # LDA, 1 AND, 1 STA, 

BOT LDA, N 1 - STA, 

BOT 1* LDA, N STA, 

0 # LDA, BOT 1* STA, TAY, 

N 1 - >Y LDA, BOT STA, 

1 4 * LDA, 1 ORA, 1 STA, 

1 * LDA, 56334 ORA, 56334 STA, 

I NEXT JHP, END-CODE 


( ASCII-WANDLER ) 


: A>S DUP 128 AND IF 127 AND 64 OR ELSE 
DUP 64 AND 0* IF ELSE 
DUP 32 AND IF 95 AND ELSE 

63 AND ENDIF ENDIF ENDIF ; 


SCR * 42 
0 


( SHAPER ) 

16 VARIABLE PX 16 VARIABLE PY 


3 1 3DUP >R OVER OVER R ROT ROT R> ; 

4 : FRAHE ROT DROP 2♦ SWAP 8 * 2♦ SWAP 15 15 2SWAP REC 

5 t DEFSHAPE OVER HERE I • 16 PX I 15 PY I 











( PUT# ) 


SCR 

0 

1 

2 

3 

4 

5 : 

6 
7 


# 57 


53248 CONSTANT CHARBASE 

0 VARIABLE CHARACTER 8 ALLOT 

CHR 8 » CHARBASE ♦ 

8 0 DO DUP I t isCHAR CHARACTER I 
LOOP DROP CHARACTER 1 8 ; 


9 0 VARIABLE CHX 0 VARIABLE CHY 

10 

11 : PUTS CHY ! CHX I COUNT 0 DO DUP I ♦ C@ A>S CHR 

12 CHX 0 I 8 • ♦ CHY 0 PUT 

13 LOOP DROP ; 

14 

15 


SCR # 60 

0 ( TURTLE ) 

1 

2 0 VARIABLE HEADING 1 VARIABLE PENSTATE 

3 

4 

5 t RIGHT HEADING *1 ; 

6 : LEFT -1 • RIGHT ; 

7 : HOVE 2DUP >R >R 2SWAP R> R> 

8 PENSTATE @ IF LINK ELSE 2DR0P 2DR0P ENDIF j 

9 : FORWARD RAD I 2DUP HEADING 0 90 - CIRC >R ♦ SWAP R> ♦ 

10 SWAP HOVE ; 

11 t BACK 180 RIGHT FORWARD 180 LEFT f 

12 

13 

14 --> 

15 


SCR # 61 

0 ( CONT. ) 

1 

2 : PENDOWN 1 PENSTATE t ; 

3 t PENUP 0 PENSTATE I ; 

4 : SETHEADING HEADING I ; 

5 i SETX OVER HOVE > 

6 : SETY >R OVER R> HOVE ; 

7 : SETXY HOVE ; 

8 : HOHE 0 SETHEADING 160 100 HOVE , 

9 : TURTLE HCLEAR HION 0 SETHEADING HFLAG IF 11 1 0 6 CFILL 

10 80 100 ELSE 11 1 CFILL 160 100 ENDIF j 

11 

12 t FD FORWARD ; : BK BACK ; 

13 J RT RIGHT ; i LT LEFT j 

14 t PD PENDOWN ; * PU PENUP j 

15 t SETH SETHEADING ; 


SCR # 70 

0 < FORH > 

1 


2 

CODE 

XFORH 

BEGIN, SEC, 

BOT 

LDA, 64 

# SBC, BOT STA, 


3 




BOT 

1* LDA, 

1 # SBC, 

BOT 1* 

STA, 

4 



0< UNTIL, 





5 



BEGIN, CLC, 

BOT 

LDA, 64 

# ADC, BOT STA, 


6 




BOT 

1* LDA, 

1 # ADC, 

BOT 1* 

STA, 

7 

8 
9 



0< NOT 

UNTIL, RTS, 

END-CODE 



CODE 

YFORH 

BEGIN, SEC, 

BOT 

LDA, 200 # SBC, 

BOT STA, 


10 




BOT 

1* LDA, 

0 # SBC, 

BOT 1* 

STA, 

11 



0< UNTIL, 





12 



BEGIN, CLC, 

BOT 

LDA, 200 # ADC, 

BOT STA, 


13 




BOT 

1* LDA, 

0 # ADC, 

BOT 1* 

STA, 

14 



0< NOT 

UNTIL, RTS, 

END-CODE 




15 --> 


SCR f 71 

0 ( QUICK-PLOT ) 

1 ASSEHBLER HEX 

2 0 VARIABLE X 0 VARIABLE Y N CONSTANT XL 

3 NI* CONSTANT XH N 2 * CONSTANT SUHL N 3 * CONSTANT SUHH 

4 NI- CONSTANT FE 

5 CODE PLOTBODY ' YFORH JSR, INX, INX, ' XFORH JSR, DEX, DEX, 

6 XSAVE STX, BOT LDY, 

7 BOT 2* LDA, PHA, BOT 3 ♦ LDA, TAX, PLA, 

8 XL STA, XH STX, TYA, F8 # AND, FE STA, SUHL STA, 

9 0 # LDA, SUHH STA, SUHL ASL, SUHH ROL, SUHL ASL, 

10 SUHH ROL, CLC, SUHL LDA, FE ADC, SUHL STA, SUHH LDA, 

11 0 # ADC, SUHH STA, SUHL ASL, SUHH ROL, SUHL ASL, 

12 SUHH ROL, SUHL ASL, SUHH ROL, TYA, 7 # AND, CLC, 

13 SUHL ADC, SUHL STA, SUHH LDA, 0 # ADC, SUHH STA, 

14 CLC, XL LDA, F8 » AND, SUHL ADC, SUHL STA, XH LDA, 

15 SUHH ADC, SUHH STA, CLC, 0 # LDA, SUHL ADC, --> 

SCR # 72 

0 < CONT. ) 

1 SUHL STA, 20 « LDA, SUHH ADC, SUHH STA, XL LDA, 7 # AND, 

2 7 # EOR, TAX, 1 # LDA, 

3 BEGIN, . A ASL, DEX, 0< UNTIL, . A ROR, 

4 0 # LDY, RTS, END-CODE 

5 

6 CODE PLOTCODE ' PLOTBODY JSR, SUHL >Y ORA, 

7 SUHL )Y STA, XSAVE LDX, 


8 INX, INX, INX, INX, RTS, END-CODE 

9 CODE UNPLOTCODE ' PLOTBODY JSR, FF * EOR, SUHL )Y AND, 

10 SUHL )Y STA, XSAVE LDX, INX, INX, INX, INX, RTS, END-CODE 

11 CODE 7PL0T ' PLOTBODY JSR, SUHL >Y AND, XSAVE LDX, 

12 INX, INX, BOT STA, 0 # LDA, BOT 1* STA, NEXT JHP, END-CODE 

13 CODE ADR ' PLOTBODY JSR, XSAVE LDX, INX, INX, 

14 SUHL LDA, BOT STA, SUHH LDA, BOT 1* STA, NEXT JHP, 

15 END-CODE —> 


SCR * 73 

0 ( CONT. ) 

1 

2 CODE (PLOT) ' PLOTCODE JSR, SEC, SUHH LDA, 20 # SBC, SUHH STA, 

3 SUHL LDA, F8 # AND, SUHL STA, CLC, 

4 SUHH ROR, SUHL ROR, SUHH ROR, SUHL ROR, SUHH ROR, 

5 SUHL ROR, 4 # LDA, SUHH ADC, SUHH STA, SUHL >Y LDA, OF « AND, 

6 SUHL >Y STA, COL LDA, .A ASL, .A ASL, .A ASL, .A ASL, SUHL )Y 

7 ORA, SUHL )Y STA, RTS, END-CODE 

8 

9 CODE QPLOT • PLOTCODE JSR, NEXT JHP, END-CODE 

10 CODE UNPLOT ' UNPLOTCODE JSR, NEXT JHP, END-CODE 

11 CODE PLOT ' (PLOT) JSR, NEXT JHP, END-CODE 

12 

13 : INIPLOT } : -PLOT PLOT ; : VBREAK ; ; BREAK DROP ; 

14 

15 DECIHAL 


SCR # 74 

0 ( QUICK-LINK ) HEX 

1 


2 

0 

VARIABLE 

XO 

ü 

VARIABLE 

YO 

0 

VARIABLE 

XI 

0 

VARIABLE 

Y1 

3 

0 

VARIABLE 

OF 

0 

VARIABLE 

CT 

0 

VARIABLE 

DX 

0 

VARIABLE 

DY 

4 

0 

VARIABLE 

IX 

0 

VARIABLE 

IY 

0 

VARIABLE 

AX 

0 

VARIABLE 

AY 


5 

6 

7 CODE PLOTIT XSAVE LDX, 

8 YO LDA, BOT STA, YO 1* LDA, BOT 1* STA, 

9 XO LDA, BOT 2* STA, XO 1* LDA, BOT 3 * STA, 

10 ' (PLOT) JSR, RTS, END-CODE 

11 
12 

13 

14 --> 

15 


SCR # 75 

0 ( CONT. ) 

1 CODE *STEP SEC, OF LDA, DX SBC, OF STA, 

2 OF 1* LDA, DX 1* SBC, OF !♦ STA, 


3 

AY 

LDA, 

0< 

IF, 

SEC, 

XO 


LDA, 

1 # 

SBC, 

XO 


STA, 


4 






XO 

1* 

LDA, 

0 # 

SBC, 

XO 

1* 

STA, 

ELSE, 

5 





CLC, 

XO 


LDA, 

AY 

ADC, 

XO 


STA, 


6 






XO 

1* 

LDA, 

0 # 

ADC, 

XO 

1* 

STA, 

ENDIF, 

7 

IY 

LDA, 

0< 

IF, 

SEC, 

YO 


LDA, 

1 # 

SBC, 

YO 


STA, 


8 






YO 

1* 

LDA, 

0 # 

SBC, 

YO 

1* 

STA, 

ELSE, 

9 





CLC, 

YO 


LDA, 

IY 

ADC, 

YO 


STA, 


10 






YO 

1* 

LDA, 

0 # 

ADC, 

YO 

1* 

STA, 

ENDIF, 


11 RTS, END-CODE 

12 

13 t X<->Y DX ö dy ö DX ! DY ! 

14 IX Ö AY ! IY 0 AX ! 

15 0 DUP IX I IY I i ~> 


SCR # 76 

0 ( CONT. ) 

1 CODE LOP 

2 IX LDA, 0< IF, SEC, 

3 0# SBC, XO 1* STA, 

40# ADC, XO 1* STA, 

5 AX LDA, 0< IF, SEC, 

6 0# SBC, YO 1* STA, 

70# ADC, YO 1* STA, 

8 CLC, OF LDA, DY ADC, OF STA, OF 1* LDA, DY 1* ADC, OF 1* STA, 

9 CT INC, 0» IF, CT 1* INC, ENDIF, 

10 

11 OF 1* LDA, DX 1* CHP, CS IF, 0«= NOT IF, 

12 DX LDA, OF CHP, CS NOT IF, ' *STEP JSR, 

13 ' PLOTIT JSR, RTS, END-CODE 

14 

15 


XO LDA, 1 # SBC, XO STA, XO 1* LDA, 
ELSE, CLC, XO ADC, XO STA, XO 1* LDA, 
ENDIF, 

YO LDA, 1 # SBC, YO STA, YO 1* LDA, 
ELSE, CLC, YO ADC, YO STA, YO 1* LDA, 
ENDIF, 


♦STEP JSR, ELSE, 
ENDIF, ENDIF, ENDIF, 


SCR # 77 

0 ( CONT. ) 

1 CODE LINKCODE DEX, DEX, DEX, DEX, XSAVE STX, ' PLOTIT JSR, 

2 BEGIN, ' LOP JSR, 

3 0 # LDX, CT 1* LDA, DX 1* CHP, CS NOT IF, INX, 

4 ELSE, DX LDA, CT CHP, CS IF, INX, ENDIF, ENDIF, 

5 TXA, 0* UNTIL, XSAVE LDX, INX, INX, INX, INX, 

6 NEXT JHP, END-CODE 

7 

8 : LINK Y1 I XI ! YO ! XO I 0 DUP AY ! AX i 

9 XI iä XO 0 2DUP > IF 1 IX ! ELSE -1 IX ! SWAP ENDIF - DX ! 

10 Y1 @ YO 0 2DUP > IF 1 IY ! ELSE -1 IY I SWAP ENDIF - DY I 

11 DJ« 0 DY 0 > 0- IF X<->Y ENDIF DX 0 2 / OF ! 1 CT ! 

12 LINKCODE ; 

13 : UNLINK ' UNPLOTCODE ' PLOTIT 17 ♦ ! LINK 

14 ' (PLOT) ' PLOTIT 17 ♦ I ; DECIHAL 

15 
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x-pert, ein Mini- 
Experten-System in ForHi 


x-pert ist ein Mini-Experten-System, das bis zu 
2512 Menü- oder Antwort-Blöcke mit 31 Byte Text 
und bis zu je zehn Menü-Verzweigungen zuläßt. Es 
bestehen Möglichkeiten zur Erweiterung, Ände¬ 
rung, zum Löschen und zur Mehrfachnutzung von 
Menüs und Antworten. Der Editor ist auch direkt 
einsetzbar. 

D er Versuch, ein Experten-System auf einem Heim¬ 
computer zu realisieren, scheitert meist an der gerin¬ 
gen Speicherkapazität oder an den extrem langen 
Reaktionszeiten des Diskettenlaufwerks beim Suchen von 
Datensätzen. Einen vertretbaren Kompromiß gestattet die 
Programmiersprache Förth, die durch ihr virtuelles Speicher¬ 
konzept fast die gesamte Diskette als RAM nutzt. Ein reines 
Assembler-Programm erlaubt zwar kürzere Verarbeitungs¬ 
zeiten, hält das System aber nicht für Modifikationen und 
Erweiterungen offen. 

In der hier vorgeschlagenen Lösung für den Commodore 
64, enthält jeder Datenblock 31 Zeichen Text und bis zu zehn 
Verzweigungen. Eine Modifikation des Förth-Wortes »r/w« 
(scr# 8,line# 1) erlaubt es, maximal 162 screens auf eine 
Diskette zu schreiben. So stehen insgesamt 2512 Daten¬ 
blöcke zur Verfügung. Um einen direkten Einblick und somit 
auch direkte Änderungsmöglichkeiten zu schaffen, werden 
alle Daten im ASCII-Code gespeichert, wobei die Nummern 
der Folgeblöcke als hexadezimale Zahlen erscheinen. So 
müssen auch alle Eingaben im hexadezimalen Modus erfol¬ 
gen. 

Neben den üblichen Variationen einen Entscheidungs¬ 
baum aufzubauen und zu verändern, erlaubt das vorgestellte 
System bestehende Menüs oder Antworten in neue Menüs 
einzufügen. Das führt zwar zu einer Platzersparnis, doch 
wächst damit die Gefahr der Verfilzung der Äste oder es führt 
zu Endlosschleifen bei der Darstellung der Baumstruktur. 

Im folgenden sollen die neuen, von unserem Mini-System 
angebotenen Wörter erklärt werden (vergleiche Listing 1). 
System-Start 

System mit »7 load« von der Programm-Diskette laden. 
Danach wird eine Daten-Diskette angefordert. 

Oder »x-pert« ( = = >) eingeben (nach erstmaliger Compi¬ 
lation). Das System wird neu gestartet, ohne eventuell neue 
oder veränderte Daten aus dem Disk-Buffer zu übernehmen. 
Beenden der Arbeit 

Nach jeder Sicherung der Daten mit »save« oder »Start« 
kann die Bearbeitung einer Diskette beziehungsweise einer 
Datei abgeschlossen werden. Das Leuchten der LED am 
Laufwerk ist ohne Bedeutung. Ein Abschluß mit »done« ist 
ebenfalls möglich. 

Zwischensicherung ohne Protokollveränderung 

save ( ==>) 

Die Datenblöcke im Disketten-Puffer werden auf die Dis¬ 
kette geschrieben und die Bearbeitung vor dem aktuellen 
Menü fortgesetzt. 

done ( ==>) 

Hat die gleiche Wirkung wie »save«, ruft jedoch kein neues 
Menü auf. 

Zwischensicherung mit Protokollneustart 

Start ( ==>) 

Die Datenblöcke werden im Disketten-Puffer auf die Dis¬ 


kette geschrieben und die Bearbeitung mit neuer Protokollie¬ 
rung startet beim aktuellen Menü. 

Neue Datendiskette einrichten 

new-disk ( ==>) 

Dieser Vorgang dauert etwa 25 Minuten. Beim Aufruf muß 
eine eingerichtete Datendiskette oder die Programmdiskette 
im Laufwerk sein. Bei Aufforderung legt man die neue Dis¬ 
kette ein. Es wird eine Titelzeile angefordert und dann mit die¬ 
ser Datei gestartet. 

Diskette aufräumen 
verify ( ==>) 

Ungenutzte Blöcke werden freigegeben. Dieser Vorgang 
wird mit zunehmender Anzahl von Daten immer zeitrauben¬ 
der. Man kann ihn auf dem Bildschirm beobachten. Ein fehler¬ 
haftes Ändern mit dem Editor kann »verify« nicht immer korri¬ 
gieren. 

Menü anwählen 

t (Blocknummer ==>) 

Das Menü beziehungsweise die Antwort mit der eingege¬ 
benen Blocknummer erscheint. Die Eingabe kann durch die 
Positionierung des Cursors unter die entsprechende Menü¬ 
zeile erfolgen. 

Rückwärtsschritt 
-( ==>) 

Es erfolgt die Rückkehr zum vorher aufgerufenen Menü. 
Die Ebene wird vermindert, im Protokoll sind jedoch alle 
Schritte festgehalten. »—« dient unter anderem dazu, zum 
Editor zurückzukehren. 

Block zum Menü hinzufügen 

Neueintrag 

x+ ( ==>) 

Sofern im Menü und auf der Diskette Platz ist, wird der 
durch Unterstrich angeforderte Text als neue Menüzeile an 
der ersten freien Stelle ins Menü eingefügt. 

Bestehenden Block einfügen 

x+t (Blocknummer ==>) 

Der mit Blocknummer angesprochene Block wird in das 
aktuelle Menü eingefügt, sofern noch Platz vorhanden ist. 
Menü zwischenschieben 

x— ( Blocknummer ==>) 

Zwischen das aktuelle Menü und die angewählte Menü¬ 
zeile fügt sich ein Menü ein. Der Text wird durch Unterstrei¬ 
chen angefordert. 

Antwort löschen 

x- ( Blocknummer ==>) 

Der Block wird freigegeben, sofern es sich um einen 
Antwortblock handelt. 

Menü löschen 

Ein Menü muß, bevor es gelöscht werden kann, mit 

x= ( Blocknummer ===>) 

zum Antwortblock umgewandelt werden. Wenn keine Fölge- 
blöcke vorliegen, wird das Menü laut Blocknummer zur 
Antwort. 

Menü in Antwort wandeln 

x= ( Blocknummer ==>) 

Wenn keine Fölgeblöcke vorliegen, wandelt sich das Menü 
zur Antwort. 

Text ändern 

corr ( Blocknummer ==>) 

Der im angewählten Block gespeicherte Text kann erneut 
eingegeben werden. 








Direktes Ändern mit dem Editor 

Die reine ASCII-Darstellung ermöglicht alle Blöcke direkt zu 
ändern. Natürlich ist hierbei besondere Vorsicht geboten, da 
man leicht Schleifen oder falsche Verknüpfungen schaffen 
kann, die später kaum zu entwirren sind. 

Hilfe zum Finden eines Blocks 
scr? ( Blocknummer ==>) 

Es werden die Screen- und Zeilennummer zur hexadezimal 
eingegebenen Blocknummer dezimal angezeigt und in den 
Dezimal-Modus umgeschaltet. 

Bildschirmprotokoll 
prot ( == >) 

Das Protokoll der bisherigen Abfragen wird nach Ebenen 
gestaffelt auf dem Bildschirm ausgegeben. 


DisKette einiesen ! 

DisKette einleSen ! 

Taste druecKen ! 
e—B1 oe c K e v o r- h a n d e n 
Menue-B1ocK 
Antwort-©1ocK 

MO 1 1 

e—Zeilen beleSt 


i-er 

# 3 

0 

* MINI-E 

1 

Verwa1tun 

2 

Version’ 

o 

<c> Peter 

4 


5 


6 


(' 

Daten-D i sl 

8 

Leer—DisKi 

Q 

Be1iebi9e 

10 

noch Fol9' 

1 1 

ist Kein 1 

12 

ist Kein i 

13 

DisKette 1 

14 

alle Men ui 

15 


•er 

# 7 

0 

< 'v'ar 

1 

forth def 

2 

93 emit . 


0 var- i 

4 

0 var i 

5 

0 vari- 

s 

0 var i 

T* 1 

0 var i 

0 

80 cons' 

9 

a2f cons' 

10 

60 cons- 

11 

0 vari • 

12 

a 000 cons' 

13 

0 var i 

14 

b000 cons' 

15 

: mö men i 

•er 

# 8 

0 

< Vor 

1 

0a2f 1f30 

2 

." ;ü" < s* 

•i» 

: If 4- if • 

4 

code Pr toi 

5 

< RusSabe 

6 


7 


8 

end-code 

9 

5 Prtoff t 

10 

sraPhic 

11 

*• x0 n 

12 

< BlocK n 

13 

1 ?enou9h 

14 


15 

; —> 

■•er 

# 9 

0 

-10 messa 

1 

code Pr toi 


< Ausgabe 


xs^vp ■=.t y 

4 

“7"#“ 

o 

0 # 

(' 

4 # 

8 

xsave 

9 

end-code 

10 

cn < c 

11 

•:! ASCII-Hl 

12 

1 ?enou9h 

13 

30 - di 

14 


15 

5 0> 0 > 


BTEM ’ 


2.66 

KlinShardt 


x—Pert ♦ 
. 32062f407 


F ebruar 


1986 
. -12 
. -11 
. -10 


Le und Konstante 
:• i ons hex 

:>adinS : x—Pert" er 


Ausdruck des Protokolls 

lprot ( ==>) 

Geschachtelter Ausdruck der bisher aufgerufenen Menüs 
und Antworten. 

Ausdruck der Gesamtdatei 

print ( ==>) 

Alle belegten Datenblöcke werden in numerischer Reihen¬ 
folge mit Blocknummer, Text, Blockkennung und den Num¬ 
mern der Folgeblöcke ausgedruckt. 

Ausdruck der Baumstruktur 

bäum ( == >) 

Beginnend ab dem aktuellen Menü als Stamm, wird die 
Baumstruktur in Form einer Gliederung ausgedruckt. Durch 
manuelle Menü : Verknüpfungen entstandene Schleifen füh¬ 
ren zum Stack-Überlauf und Systemabsturz. 

Beschreibung der einzelnen Datenblöcke 


Bytes 


Inhalt 


00-1e 

1f 


20-3e 


3f 

20 


31 Byte Text 
Blocktyp-Kennung 
freier Block 
=: Antwort-Block 
>: Menü-Block 
v: Verwaltungs-Block 
zehn Folgeblock-Nummern jeweils drei 
ASCII-Zeichen als Hexadezimal-Zahl. Dieses 
Verfahren ist platzsparend und gestattet 
eine direkte Editierung. 
unbenutzt: blank 
unbenutzt: Punkt 


men 

vor 

nach 

addr 

txt 20 

anf an9 

ende 

bis 

en 

ev 

vn 


Nummer 


er 

des 


aKtue11en Menue-B 1ocks > 


m! men 


Zl-j i schensP e i cher > 
llot < Text-Bereich > 
e r s t e r D a t e n—Bl o c K 
1etzter Daten-B1ocK > 
letzter benutzter Daten-B1ocK > 
flenue-Ebene > 

Menue—Eintraese GraphiK-Bereich > 

P r o t o K o 11 — E b e n e !•' 

B1 ocK—Nummern—Fo 19e GraP h i K-Bere i ch '} 


Listing 1. »x-pert«, 
ein Mini-Expertensystem 


auf 


? irrste 1 lunSen 
162 Screens 
i.rze Schrift 
21 + 21 + ; 

Bi1dschirm 
xsave stx.< 
xsave 


1 dx * 


in r/u 


ffee j sr .• 
next dmP, 


er Prtof 
&clear 

loesehen 
b 1 ocK 


duP 40 20 fill 


lf+ 2e2d swaP ! Update 


ldx, 

lda.< 

ldx/ 
1 dx, 


DrucKer 

4 # lda. 


f f ba 
f fbd 
f f C0 
f f c9 
next 


osr .• 
5 sr .• 
5 sr .• 
-5 s r t 
■i mP .• 


4 # ldx, 
SETLFS :: 
SETNflM : 
OPEN > 
CHKÜUT • 


==> b > 

' in hex-Wert wandeln > 
duP 20 * if droP © eise 
a > if 7 - endif endif 


Verwaltungsblock-Beschreibung 
Blocknummer 31 <hex> 


Bytes 


Inhalt 


00-1e 

Verwaltungsblock’ 

If 

V 

20 

/ / 

21-23 

erster Datenblock 

24-26. 

letzter Datenblock 

27-29 

letzter belegter Block 

2a... 

Rest ungenutzt 


x-pert ist in Förth 64 für den Commodore 64 geschrieben, 
sollte aber mit nur geringfügigen Modifikationen auf jedem 
anderen Computer unter FIG-Förth laufen. 

Speziell für die Besitzer von Forth 64 sind in Listing 2 die 
Screens 40 bis 43 gedacht. Sie enthalten eine verbesserte 
Version der in Forth 64 fehlerhaften Wörter »triad« und eine 
verbesserte Version des Worts »dump«. 

Diese Abänderung belegt keinen weiteren Speicherplatz, 
da sie in das bestehende System hineingeschrieben wird. 

Allerdings ist sie daher auch wirklich nur mit Förth 64 zu 
verwenden, was jedoch nicht weiter schlimm ist, da diese 
Fehler ja ebenfalls spezifisch sind. 


(Peter Klinghardt/ev) 










er 

# 
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i. 

hex in ein Byte Hb Ul urnuandeln •' 

2 

r 

?enou9h duP 9 > if 

7 + endif 

3 



3© + 

4 

5 

f 

X0 < n =«> addr 

y 

6 

c; 

Rdresse des n. Fo19eb1o 

cKs aus > 

7 

< 

d e rn a K t u e 11 e n M e n u e 


8 

1 

?enou9h 1 — 3 

rn0 blocK 

9 


21+ + duP c0 en 8 <Is 

hift suaP 

1© 


1+ duP c0 en 4 <s 

hift suaP 

11 

12 

.• 

1 + C0 

en or or 

13 


t? < blocKaddr ==> ety 

P > 

14 

1 

?enou9h 

1 f + e 0 

15 


—> 


er 

# 

11 

. 

0 


x ! < b n ==> 


1 

( 

BloeK-Nurnrner b in RbULl 

1 s n. > 

2 

£ 

Parameter ins Menue ein 

tragen !•* 

3 

2 

?enou9h 


4 


1 — 3 f m@ blocK 21+ 

+ addr ! 


duP f 00 and 8 >shift nc addr 0 c! 
duP @f 0 and 4 >shift nc addr 0 1 + 
c! 00 f and nc addr 0 2 + c! update 

* x-. < blocKaddr ==> > 

1 ? e n o u 9 h i f -1 r a i 1 i n 9 t y P e 

j 

: xt? < b --y addr typ _ > 

1 ?enou 9 h blocK lf + duP c0 


# 12 

s he ade r '•! n 1> > 

< BlocK n wird Lieber sehr if t > 

1 ?enou9h hex noK '33 ernit duP 4 «r 

. " T < " en 0 4 ■r -" - Ebene " 

vn 0 5 .r ■ " . Rufruf >" er 

22 ernit blocK duP t? case 
3e of -" Menue : " endof 

3d of ." Rntu. : " endof 

2d of ." frei : " endof endcase 

lf typ e er 

t 

•• ser? < b ==> > 

< BlocK-Hummer a1s Screen-Zei1e > 
1 ?enou9h decimal duP 4 >shift er 

. ." edit" er f and . er 

# 13 

: verif V < ==> 

graPhie Ähi-res w fff 0 fill 
ev fff © fill bis anfans do 
ff i eu + ! 

i rn! i blocK t ? 3e = if 
i rn! ©b 1 do 
ff i x.0 uu c! looP 

end i f 

1 OOP 

bis anfans 1+ do 
uv i + duP c0 suiäP 
© suaP c! ö= if 
i x© endif 

looP 

ä 1 o—r e s f o r t h d o ri e 


# 14 

< Menue-Zeile n au39eben > 

1 ?enou9h 22 ernit sPaee 

duP blocK duP lf type t? ease 
3e of * v Menue" endof 
3d of -" flntu." endof 
2d of •" frei " endof endcase 
er 21 sPaees 4 .r ." t" er 

prot < ==> > 

< ProtoKo11 > 

er vn 01+1 do 

vv i 4* + duP 0 suaP 2+ 0 
duP blocK suaP 4 .r ■" " 

suaP sPaees x—. er looP 

# 15 

# ? < n ==> 

ci Menue aus BlocK n aus9eben. 


?enou9h duP duP duP header in ! 
en 0 1+ 7ff and duP en ! 2 * ev + 
! vn 0 1+ 3ff and duP vn ! 4 * vv 
+ duP en 0 suaP ! 2+ ! ©b 1 do 
i x0 duP ©> if 
duP blocK t? 2d = if 
© i x! droP e1se 
x. endif 

e 1 se 
droP endif 

1 OOP 

e messa9e er — d rnessa9e er er er 


15 

- 

-> 


scr 

# 

16 


Pi 


1 P rot < ==> 

> 

i 

< 

ProtoKo11 dr 

ueKen > 

2 



er vn 0 1+ 1 do 

o 


vv i 4 jf: 

+ duP 0 suaP 2+ 0 

4 

duP blocK Prt 

on suaP 4 .r ." 

5 


suaP 2 * 

sP aces x-. P r tof f 

6 


?terrninal 

if leave endif looP 

r 

8 

.* 

+* ==> 

y 

y 

< 

Ein Menue zuruecK9ehen > 

1© 



en 0 1 > if 

11 


en 

0 2 — duP en ! e1se 

12 



© en ! 0 endif 

13 



1 + 2 ♦ e v + 0 T 

14 

; 

—> 


15 




s er 

# 

17 


Pi 


X0? < ==> 

> 

1 


Freie Menue - 

Zeile suchen > 

2 



© 0b 1 do 



i x0 ©= if 

droP i leave endif 

4 



1 OOP 

5 


-duP ©= if 

—2 rnessa9© er endif 

6 

.» 



7 


start (. 

y 

8 



rn0 duP vv ! duP ev ! 

Q 



done 0 vn ! © en ! t 

1© 

* 




: set < n ==> ri > 

< V'erualtun9—BlocK aKtualsieren > 

1 VenouSh duP bis rnax y bis ! 

rn0 bis 31 rn ! 3 x ! rn ! 

# 18 

: frei? •% n = ~> b > 

< sucht einen freien BlocK ab ) 

BlocK n b=© : Kein BlocK > 

1 ?enou9h © suaP ende suaP do 

i blocK t? 2d = if 
droP i leave endif 

1 OOP 
j 

5 x? < ==> n > 

< sucht freien BlocK > 

bis frei? duP ©= if 

droP anfang frei? duP ©= if 
er —3 rnessa9e er endif 

end i f 

# 19 

: txt? < —=I> > 

< Text einiesen > 

er er txt lf 2© fill 

•i -ii 

er 91 duP ernit ernit txt 2© 
ex.Peet txt er duP 2© + suaP do 

i e0 ©= if 
2© i c! endif 

1 OOP 

•• x—Pert < ==> > 

c r e rn P t y -buffe r s -1 © rn e s s a 9 e 31 rn ! 

1 x0 x anfan9 ! 2 x0 x ende ! 

3 x@ ■“ bis ! anf an 9 rn! start 


# 2 © 

rePlaee <. n ==> > 

< BlocK in Menuezei1e n ersetzen > 
1 ?enou9h 3e rri0 blocK 1 f + e! 

x? duP ©> if 

set duP rot x! txt? blocK duP 
txt suaP lf emove lf+ duP 3d 
suaP e! 2+ le 2© fill Update endif 





























scr 

# 

42 




0 

< 

dumP mo n bis ==> <neue Vers> > 




1 

<; 

dumP in der Breite dum mit y > 




2 

< 

a 1 s nicht drucKbares Seichen > 




•-* 


£ 2 ?enou9h 1+ base @ hex 




4 


-rot swaP duP rot swaP do 




3 


noP er i 0 5 d.r dum 8 do 




6 


duP c*2 duP 3 - r 




7 


duP 7f and 20 < if 




8 


droP 2e endif 




9 


P ad i + c! 1 + 1 00 P 

< 

T e x t a u f b a u e n > 


10 


sPace Pad dum tXPe 


Zeilentext ausSeben > 


11 

Yterm 1 na 1 if 1 eave endif dun» + I 00 P 




12 


droP er base ! 




13 


—> 




14 






15 






scr 

# 

43 


3 < loeschen 

> 

0 

<: 

alte Ver ■ dumP ueberschreiber» > 


10 —> 


1 




11 < MM nun geht dumP wieder ! ! ! ! 

> 

2 


£ cfa duP Parameter—Feld > 


12 


vl» 

her© s waP - <! LaenSe > 


13 


4 

s 

dumP cfa < Zieladresse = Pfa > 


14 


5 


< der alten Version > 


15 


t« 

SL 

jap emooe eintraSen ;• 




7 






8 

1 =•: 

:»r9et £ < Zw i schenoers i on > 


Listing 2. Zwei Verbesserungen zu Forth 64 (Schluß) 



Am Anfang war das Wort.. 


Programmieren in Forth bedeutet, neue Wörter zu 
schaffen, indem bereits definierte Befehle zu 
immer komplexeren Gruppen zusammengefaßt 
werden. 

F orth ist eine sehr leistungsfähige Sprache. Wer in Forth 
programmiert, der programmiert nicht; der schafft sich 
neue Wörter, wobei am Ende oft ein einziges Wort 
steht, das dann das fertige Programm repräsentiert. 

Diese Art des Programmierens bietet gegenüber der her¬ 
kömmlichen Unterprogramm-Technik erhebliche Vorteile: 

- Jedes Wort ist quasi eine Spracherweiterung, das heißt das 
Computersystem wächst mit dem Programmierer. Je mehr 
man in Forth programmiert hat, desto häufiger kann man auf 
Befehle zurückgreifen, die man Monate zuvor geschaffen 
hat. Dadurch nimmt die Produktivität des Programmierers 
enorm zu. 

- Es ist einfacher, einzelne Wörter auf ihre Richtigkeit zu 
überprüfen, als ein ganzes Programm. Förth-Programme sind 
also zuverlässiger und man verliert weniger Zeit bei der Feh¬ 
lersuche (Debugging). 

- Die Programmpflege gestaltet sich erheblich einfacher als 
in allen anderen Sprachen, da, um ein Programm neu anzu¬ 
passen, meist nur ganz wenige grundlegende Wörter abzu¬ 
ändern sind. Das ist für all diejenigen wichtig, die zum Beispiel 
Vorhaben, irgendwann auf einen anderen Computer umzu¬ 
steigen, und Ihre Programmsammlung dann weiter verwen¬ 
den wollen. Wer einmal versucht hat, Basic-Programme vom 
C 64 auf einen anderen Computer umzuschreiben, der weiß 
das zu würdigen. 

Daß Forth schwer zu erlernen sei, ist nur ein Gerücht. Forth 
ist sehr ungewöhnlich, aber auch nicht schwieriger als Basic 
oder Pascal. Nur wer sich nicht von gewohnten Konzepten 
trennen kann, mag anfangs Schwierigkeiten haben. 

Wie schafft sich der Forth-Programmierer nun seine neuen 
Wörter? Es gibt prinzipiell drei Möglichkeiten, die die Stich¬ 
wörter Colon-Definition, Primitive und Compiler umreißen. 
Die Colon-Definition 

Die Colon-Definition ist die übliche Methode, Wörter zu 
bauen. Die meisten Programme bestehen aus kaum mehr als 
einer Reihe von solchen Definitionen. 


Eine Colon-Definition besteht aus: 

Anfang, Name, Definition, Ende. 

Den Anfang kennzeichnet in Forth ein Doppelpunkt (engl. 
Colon, daher der Name dieser Definitionsart), darauf folgt der 
Name des zu definierenden Wortes. Die dann folgende Defi¬ 
nition ist nichts weiter als eine Liste bereits bekannter Förth- 
Wörter, die vom System immer dann ausgeführt werden sol¬ 
len, wenn der neue Name als Anweisung auftaucht. Das Ende 
der Colon-Definition aktiviert ein Semikolon. 

Ein Beispiel: 

: PETRA 5 + . ; 

VLIST zeigt, daß PETRA nun ganz oben im Dictionary steht! 
PETRA addiert eine 5 und zeigt das Ergebnis an. Zum Bei¬ 
spiel ergibt 

10 PETRA 

nach Drücken der Return-Taste die Meldung 

15 OK 

Die eben durchgeführte Colon-Definition von PETRA 
repräsentiert natürlich kein besonders gutes Beispiel für 
sinnvolle Programmierung in Forth, denn normalerweise wird 
man als Namen für ein Wort immer eine aussagekünftige 
Bezeichnung wählen (in diesem Falle vielleicht »PLUS- 
FUENF.«). Die Bezeichnung PETRA sollte nur zeigen, daß 
man in Förth bei der Namensgebung völlig freie Hand hat. 
Forth und Maschinensprache 
Wer etwas Ahnung von Maschinensprache hat, der sollte 
nicht denken, »da brauche ich Förth ja nicht mehr«, sondern 
kann seine Kenntnisse sehr sinnvoll einbringen. Es besteht 
die Möglichkeit, Wörter statt wie eben in »High-Level«, also 
als Colon-Definition, auch als sogenannte »Primitive«, das 
heißt in Maschinensprache, zu schreiben. Dazu benötigt man 
einen Förth-Assembler, den die meisten Forth-Versionen 
gleich mitanbieten. 

Ein Maschinen-Befehl besteht in der Regel aus Befehls¬ 
wort und Operanden. 

Im 6502-Assembler lautet beispielsweise der Befehl zum 
Laden des Akkumulativs mit der Konstanten 1 

LDA #1 

Der Förth-Assembler benötigt hier die umgekehrte Nota¬ 
tion, also erst den Operanden: 

01 # LDA, 

(man beachte das Komma hinter LDA!). 













Als Beispiel ein kleiner Vergleich: 

6502-Assembler 

$C000 CLC $C009 RTS 

$C001 LDA $D020 $COOA NOP 

$C004 ADC #$01 $C00B NOP 

$0006 STA $D020 

Forth 

SCR # 1 

0 (PRIMITIVES) 

1 

2 CODE DANI CLC, 

3 53280 LDA, 

4 1 # ADC, 

5 53280 STA, 

6 NEXT JMP, END-CODE 

NEXT ist die Einsprungstelle für den »Inneren Interpreter« 
von Forth. Der Innere Interpreter kümmert sich darum, wel¬ 
ches Wort als nächstes an die Reihe kommt, dem »Äußeren 
Interpreter« fällt die Aufgabe Benutzer und Eingaben zu. 

Es ist empfehlenswert, Programme zunächst in High-Level 
zu erzeugen; falls die Geschwindigkeit dann nicht ausreicht, 
genügt es meistens, ein oder zwei Worte als Primitive umzu¬ 
schreiben. Das ist erheblich effektiver, als würde man das 
ganze Programm in Assembler schreiben. Oft erübrigt sich 
auch das, da Forth sowieso 100- bis 400-mal schneller als 
Basic läuft. 

Und nun für ganz Raffinierte: Wir können Wörter erfinden, 
die uns die »Arbeit« des Wörterbauens abnehmen. Dieser 
Punkt macht Forth so leistungsfähig. Als typischer Vertreter 
dieser Wörter steht CONSTANT. »n CONSTANT name« 
schafft ein neues Wort namens »name«, das bei Aufruf n auf 
den Stack legt. Beispiel: 

1024 CONSTANT SCREEN 

definiert zunächst das Wort SCREEN. Der Leser kann sich 
davon mit Hilfe von VLIST überzeugen. 

SCREEN legt dann den Wert 1024 auf den Stapel. Beispiel: 

SCREEN 500 + . 

1524 OK 

Anstelle von 1024 (Adresse des ersten Byte des Bild¬ 
schirmspeichers) kann also überall im Programm SCREEN 
einspringen. 

Will man später das Programm auf einem Computer laufen 
lassen, bei dem der Bildschirmspeicher vielleicht bei 4096 
beginnt, so braucht man nur ein einziges Wort abändern: 

: SCREEN 4096 ; 

Praktisch, nicht wahr? 

Das Wort CONSTANT schafft also eine ganz neue Klasse 
von Wörtern, eben mit der Eigenschaft, Konstanten zu sein. 

Ein Wort wie CONSTANT muß also zweierlei tun: Erstens 
das Wort »name« ins Dictionary eintragen, und zweitens 
»name« sagen, was es tun soll, wenn der Benutzer »name« 
aufruft. 

Zunächst erfinden wir also mit Hilfe einer Colon-Definition 
ein Wort wie CONSTANT. Nennen wir es ANGEBER. ANGE¬ 
BER schafft nun eine neue Klasse von Wörtern, nämlich 
Angeber-Wörter. Das sieht so aus: 

: ANGEBER (BUILDS D0ES) ; 

Zwischen < BUILDS und DOES> steht die Angabe, wie 
der Wortkörper auszusehen hat, hier steht also gar nichts; 
zwischen DOES> und »;« steht, was die Angeber-Wörter 
dann ausführen sollen, hier also ebenfalls nichts. DOES > 
bewirkt, daß die PFA (Parameterfeldadresse) des Wortes 
»name« auf den Stack gelegt wird. Die PFA ist die Adresse 
des ersten Bytes des Parameterfeldes. Das Parameterfeld 
beinhaltet eine Liste im Wortkörper, die das Wort zur Ausfüh¬ 
rung benötigt. Bei Primitives steht da der ganze Maschinen¬ 
code, bei High-Level-Wörtern besteht das Parameterfeld aus 
einer Liste der Adressen der Wörter, die abgearbeitet werden 
sollen, die also in der Colon-Definition standen. 


Probieren wir ANGEBER einmal aus: 

ANGEBER MICHAEL 

Wir überzeugen uns mit VLIST, daß Michael als neues Wort 
im Dictionary steht! Nun rufen wir MICHAEL auf. Was passiert ? 
Nichts, außer daß die PFA von MICHAEL auf dem Stack liegt. 
Deshalb ist MICHAEL ein Angeber: er gibt seine PFA an, aber 
nichts dahinter! 

Probieren wir etwas anderes: 

: NICHTSNUTZ (BUILDS DOES) DROP ; 

Wir vermuten, die Nichtsnutz-Wörter entfernen sogar noch 
ihre PFA. Wir geben zunächst ein: 

NICHTSNUTZ WALTER 
und dann 
WALTER 

und tatsächlich, nichts passiert. 

Versuchen wir einmal, Konstanten bauen zu lassen: 

: C0NSTANTIN0PEL (BUILDS , DOES) @ ; 

Das »,« bewirkt, daß die oberste Zahl vom Stack genommen 
und ins Dictionary, also in das Parameterfeld, gepackt wird. 
Die durch CONSTANTINOPEL definierten Wörter holen diese 
Zahl wegen @dann wieder auf den Stack. Der Vorgang wie¬ 
derholt sich dauernd. Beispiel: 

1024 CONSTANTINOPEL SCREEN 
SCREEN 500 + . 

1524 OK 

Aha! Prima, aber wir hätten es natürlich auch einfacher 
haben können: 

: CONSTANTINOPEL CONSTANT ; 

Zum Abschluß wollen wir noch ein »richtiges« Programm 
schreiben, nämlich einen Maskengenerator, der die Bild¬ 
schirmseite irgendwo speichert und bei Bedarf immer wieder 
holen kann. Am besten bringen wir den ganzen Bildschirm in 
einer einzigen Variablen unter. Der Leser wird schon erraten 
haben: Wir benötigen einen neuen Variablentyp. Nennen wir 
ihn MASKE. Die Masken sollen in ihrem Parameterfeld 
zunächst 1000 Leerzeichen, also lOOOmal den Bildschirm¬ 
code 32 haben. Das erledigt eine Schleife, also in Basic: 

F0R 1=0 T0 999 .NEXT 

Das sieht in Forth etwas anders aus: 

1000 0 DO.LOOP 

Die Punkte stehen für eine Anweisung. Nun brauchen wir 
noch ein Wort, um die 1000 Byte zu transportieren. Dazu bie¬ 
tet uns Forth 

CM0VE ( a a n - ) 

an. CMOVE verlagert n-Byte von der Adresse a nach a. 

PFA 1024 1000 CMOVE bringt uns also die Bytes aus der 
Maske (ab a PFA) in den Bildschirmspeicher. 

Den Ausdruck 

1024 1000 CMOVE 

kürzen wir durch »M@« ab. 

MASKE ANDREA 

kreiert uns eine Leermaske namens ANDREA. 

ANDREA M@ 

holt uns ANDREA in den Bildschirmspeicher. Zum Speichern 
mit »M!« werden nur die Adressen a und a vertauscht (siehe 
Listing). Damit besitzen wir bereits einen primitiven Masken¬ 
generator! Wir können ihn als »Notizzettelspeicher« verwen¬ 
den, oder als »virtual screen buffer«, oder um mit mehreren 
Bildschirmen zu arbeiten, und so weiter. 

MASKMAKER ist eine etwas komfortablere Version: PAGE 
löscht den Bildschirm (ASCII-Code 147 beim C 64), KEY 
erwartet solange eine Tastatureingabe, die mit EMIT auf den 
Bildschirm gebracht, bis RETURN gedrückt wird. Dann wird 
die fertige Maske mit »M!« gespeichert. 

Wer will jetzt noch behaupten, Förth sei unübersichtlich? 
Man beachte, daß der ganze Maskengenerator lediglich 127 
Byte lang ist, also gerade zwei oder drei Basic-Zeilen ent¬ 
spricht. 

(Andreas Carl/ev) 















Computer-Fenen: _ 

Urlaub einmal anders! 


Ein anschauliches Reisemagazin in 
der Happy-Computer-Ausgabe 
Juni informiert über Computer- 
Kurse im Urlaub — Für jeden 
Geschmack und jeden Geldbeutel . 

Brandaktuell und bisher nur in 
Happy-Computer: 

Die deutsche Version des spannen¬ 
den Abenteuerspiels »Im Herzen 
Afrikas« wird vorgestellt. — Gleich 
mit dabei: 

Ein Wettbewerb , in dem Sie als 
ersten Preis eine Reise nach Kenia 
gewinnen können. 

Brandneu: Das Grafik-Programm 
»Draughtsman« für alle CPCs wird 
vorgestellt. 

Diesmal im Commodore-Sonderteil: 
Ein Kurs zur Spieleprogrammie¬ 
rung in Maschinensprache. 

Und »Tron-Construction-Set«, das 
Spiel des Monats . 

Eine Top-Ten-Liste von 
Matrix-Druckern hilft richtig 
auszuwählen. 

Hardware-Bastelei: Ausführliche 
Anleitung zu einem Sensor- 
Joystick . 

Im Test: Die neuen MSX-Modelle 
von Sony. 



erhalten Sie Mitte jedes Monats 
bei Ihrem Zeitschriftenhändler. 
Die Juni-Ausgabe erscheint 
am 12. Mai 1986. 
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Drucker 

★ Die besten preiswerten 

★ Utility-Listings 

★ Software mit Spaß 
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Computer t 
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i Gutschein 


FÜR EIN KOSTENLOSES PROBEEXEMPLAR VON HAPPY-COMPUTER 

JA, ich möchte »Happy-Computer« kennenlemen. 

Senden Sie mir bitte die aktuellste Ausgabe kostenlos als Probeexemplar. Wenn mir »Happy-Computer« 
gefällt und ich es regelmäßig weiterbeziehen möchte, brauche ich nichts zu tun: Ich erhalte »Happy- 
Computer« dann regelmäßig frei Haus per Post und bezahle pro Jahr nur DM 66,— statt DM 72,— Einzel¬ 
verkaufspreis (Ausland auf Anfrage). 


Vorname, Name 


Straße PLZ, Ort 


Datum 1. Unterschrift 

Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerrufen kann 
und bestätige dies durch meine zweite Unterschrift. Zur Wahrung der Frist genügt die rechtzeitige Absendung 
des Widerrufs. 


Datum 


2. Unterschrift 

senden an.- 
4, 8013 Haar 


Gutschein ausfüllen, ausschneiden, in ein Kuvert stecken und ab: 
Markt&Technik Verlag Aktiengesellschaft, Vertrieb Postfach 130' 



















Pilot für Höhenflüge 


P ilot hat nichts mit dem gleichlau¬ 
tenden Wort »Pilot« zu tun, son¬ 
dern ist die Abkürzung für »Pro- 
grammed Inquiry, Learning Or Teach- 
ing«, auf deutsch etwa »Programmier¬ 
tes Abfragen für Lernen und Lehren«. 
Der Zweck ist also klar: Pilot wurde ent¬ 
wickelt, um schnell und einfach Lern- 
programme zu schreiben. Lernpro- 
gramme, die mit Computern nichts zu 
tun haben müssen! Nein, alles ist denk¬ 
bar, von Vokabelabfragen über Recht¬ 
schreibübungen bis hin zu Geschichts-, 
Biologie- oder Physik-Lernprogram¬ 
men. Eine solche Vielfalt muß nicht 
unbedingt erstaunen, denn alle derarti¬ 
gen Programme benutzen ja ein 
bestimmtes Konzept immer wieder, 
nämlich das der Stringverarbeitung. 
Und gerade auf diesem Gebiet liegt die 
Stärke von Pilot. Die Sprache hat einige 
Befehle zu bieten, die nicht alltäglich 
sind. 

Doch gehen wir der Reihe nach vor 
und beginnen wir mit den eher gewöhn¬ 
lichen Befehlen. 


Hallo Pilot, 

wie geht # s? 


Jede Anweisung in Pilot hat die fol¬ 
gende Form: 

Befehl: Operandenliste 

In jeder Zeile steht genau eine Anwei¬ 
sung, Zeilennummern gibt es nicht. Ein 
Beispiel: Das Ausgeben von Text auf 
dem Bildschirm geschieht durch den 
Befehl »T« (für »Type«), Also schreibt: 

T:Hallo Pilot 

die Worte »Hallo Pilot« auf den Bild¬ 
schirm. 

Will man den Type-Befehl in mehreren 
Anweisungen hintereinander benut¬ 
zen, muß man den Befehl nicht mehr¬ 
fach angeben. Dann genügen die Dop¬ 
pelpunkte. 

T:Hallo Pilot 
:Wie gehts 

schreibt erst »Hallo Pilot« und dann 
»Wie gehts« eine Zeile darunter. 

Der Type-Befehl existiert in zwei 
Varianten. 

»TS« löscht zuerst den Bildschirm und 
gibt dann den Text aus und »TH« (»Type 
and Hang«) läßt den Cursor für den 
nächsten Type-Befehl in derselben 
Zeile stehen. 

Ähnlich wird der A-Befehl (für 
»Accept«) verwendet. »A:#X« ent¬ 
spricht der Basic-Anweisung INPUT X. 
Das Zeichen »#« gibt an, daß X eine 
numerische Variable ist. 


Hier finden Sie eine Einführung 
in die Programmiersprache Pilot. 
Anhand einiger Beispiele wer¬ 
den die Fähigkeiten dieser in¬ 
teressanten Sprache vorgestellt. 


Als Variante ist »AS« (»Accept Single 
Character«) zu erwähnen. Dabei wartet 
der Computer nur auf die Eingabe eines 
einzelnen Zeichens und fährt dann 
sofort mit dem Programmlauf fort. 

Die Befehle Type und Accept dienen 
also zur Kommunikation zwischen Pro¬ 
gramm und Benutzer. Aber auch 
Berechnungen fallen an. Dazu dient der 
Befehl »C« (für »Compute«). 

»C:x=3*2« berechnet beispiels¬ 
weise das Produkt aus 3 und 2 und 
weist es der Variablen x zu. Bei dem 
Compute-Befehl benötigt man das » # « 
nicht. 

Zu diesem Thema wäre noch zu sa¬ 
gen, daß es in Pilot nur ganze Zahlen 
gibt. Wer das als Nachteil empfindet, 
sollte sich noch einmal klarmachen, für 
welchen Zweck diese Sprache über¬ 
haupt konzipiert wurde, denn ein 
Rechtschreib- oder Geschichtspro¬ 
gramm benötigt nun wirklich keine 
Kommazahlen. 

Immerhin sind aber für ganze Zahlen 
die Operatoren »+«, »-«, »*« und »/« 
vorhanden. 

Schließlich benötigen wir einen 
Sprung-Befehl. Dieser lautet J (für 
»jump«). Dazu muß natürlich ein 
Sprungziel angegeben werden. Basic 
erledigt diese Aufgabe durch eine Zei¬ 
lennummer, in Pilot hingegen geschieht 
es anschaulicher durch Angabe eines 
»Labels«, das heißt eines symbolischen 
Namens. 

»J:end« springt also zum Label mit 
dem Namen »end«. Dieses Label muß in 
dem Programm vorhanden sein, und 
zwar in der Form »*end«. 


Labels statt 
Zeilennummem 


Einen bedingten Sprung bewirkt die 
Angabe einer Bedingung: »J(x=0): 
end« löst einen Sprung nach »end« nur 
unter der Voraussetzung aus, daß X den 
Wert Null hat. Ansonsten hat diese 
Anweisung keine Wirkung. In der Klam¬ 
mer zwischen »J« und »:« kann ein belie¬ 
biger logischer Ausdruck stehen. An 
Vergleichsoperatoren fehlt keiner der 
von Basic her gewohnten. 


Übrigens kann man jeden Befehl von 
solch einer Bedingung abhängig 
machen: »T(x=Obgleich 0« gibt den 
Text nur aus, wenn x den Wert 0 hat, 
»C(a=b):y=x+3« berechnet y=x+3, 
falls a=b gilt. 

Damit besitzen wir genügend Wis¬ 
sen, um ein erstes Programm zu verste¬ 
hen (Listing 1). Es handelt sich dabei 
um ein Programm, das entscheidet, ob 
eine eingegebene Zahl eine Primzahl ist 
oder nicht. Zum direkten Vergleich 
steht hinter jeder Zeile des Programms 
die entsprechende Basic-Zeile. 


Das erste 
Programm 


Als Primzahl wird eine Zahl bezeich¬ 
net, die nur durch 1 und sich selbst 
ohne Rest teilbar ist. Wollen wir also 
prüfen, ob eine Zahl diese Eigenschaft 
besitzt, untersuchen wir alle in Frage 
kommenden Zahlen auf die Teilereigen¬ 
schaft hin. Das sind natürlich nur die 
Zahlen, die kleiner sind als die zu unter¬ 
suchende. Nennen wir unsere Zahl ein¬ 
mal x. Dann beginnen wir bei i=2 zu 
testen, ob i Teiler von x ist. Die Bedin¬ 
gung hierfür lautet: X/i*i=x. Man 
beachte, daß x/i eine ganzzahlige Divi¬ 
sion ist, das heißt Kommastellen entfal¬ 
len. Machen Sie sich anhand von Bei¬ 
spielen klar, daß diese Bedingung 
gleichwertig zur Teilerbedingung ist. 
Sie ist bis i=x-1 zu überprüfen, dann 
nicht mehr. 

Sobald sich die Bedingung erfüllt, ist 
i ein Teiler von x und daher x keine Prim¬ 
zahl. Dann erfolgt ein Sprung nach 
»*notprim«. Ansonsten läuft die 
Schleife unterhalb von »*test« bis zum 
Ende und gelangt dann nach »*prim«. 
Was in den einzelnen Fällen passiert, 
sollte jedem klar sein. 

Als Sonderfall gilt x=2, da die 
Schleife unterhalb von »*test« bei i=2 
zu laufen beginnt und daher sofort 2 als 
Teiler von 2 finden würde. 

Vergleichen Sie bitte Pilot- und Basic- 
Programm Zeile für Zeile, um sich die 
Unterschiede deutlich zu machen. 

Eine Anmerkung zum Schluß: Die 
Anweisung »W:20« stellt lediglich eine 
Warteschleife dar (W entspricht »Wait«) 
und hat sonst keinerlei Funktion. Sie ist 
aber nötig, da der Pilot-Interpreter nach 
Beendigung eines Programms sofort 
wieder ins Hauptprogramm zurück¬ 
springt. Die Wait-Anweisung gibt dem 
Anwender des Programms etwas Zeit, 
das Resultat zu lesen. 
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Nun kommen wir endlich zu den an¬ 
gekündigten Besonderheiten von Pilot. 
Diese betreffen zunächst den Accept- 
Befehl, da er auch ohne Operand auf¬ 
gerufen werden kann, einfach in der 
Form »A:«. Die Eingabe geht damit 
natürlich nicht verloren, sonst hätte das 
alles wenig Sinn. Vielmehr befindet sie 
sich in einem speziellen Eingabe- 
Buffer. Mit »%b« (für Buffer) können sie 
nun darauf zurückgreifen. Wertzuwei¬ 
sungen oder Berechnungen sind zum 
Beispiel durch »C:x=%b« möglich oder 
die Eingabe wird wieder durch »T: # %b« 
ausgegeben (man beachte das # - 
Zeichen). 

Das scheint natürlich nicht sensatio¬ 
nell und ist daher auch nicht der eigent¬ 
liche Zweck der Angelegenheit. Der 
folgt jetzt in Form des Befehls M (für 
»Match«), Die Erfinder von Pilot mach¬ 
ten sich nämlich Gedanken, wie sich 
solche Frage- und Antwortspiele, wie 
sie Vokabel-Lern-Programme nun ein¬ 
mal darstellen, mit dem geringsten Auf¬ 
wand programmieren lassen. Es ist ja 
überhaupt nicht nötig, dem Eingabe¬ 
string einer Vokabel einen Variablenna¬ 
men zu geben. Man muß eben nur fest¬ 
stellen können, ob die Eingabe mit der 
korrekten Lösung übereinstimmt. Die¬ 
ses Testen übernimmt der Match- 
Befehl (match heißt ja übereinstimmen). 


Die Anweisung »M:super« prüft also, ob 
die letzte Eingabe (durch eine unspezi- 
fizierte Accept-Anweisung) mit dem 
Wort »super« übereinstimmt. Aber wie¬ 
der ist nicht klar, was mit dem Ergebnis 
geschieht, da ja zwei Fälle auftreten 
können. 

Y (für »yes«) heißt: Die Eingabe 
stimmt überein. 

N (für »no«) heißt: Die Eingabe stimmt 
nicht überein. 

Wann immer nun bei einer der folgen¬ 
den Anweisungen ein Y (beziehungs¬ 
weise N) hintenansteht, wird diese nur 
ausgeführt, wenn eine Übereinstim¬ 
mung festgestellt wurde (beziehungs¬ 
weise nicht festgestellt wurde). 


ts:Welches Gebaeude ist auf dem 
:1000-Mark-Schein zu sehen ? 
a: 

ms Limburg 
thysRichtig, 
jys end 
tsFalsch. 

sEin Tip : Es handelt sich um den 
;Dom einer hessischen Stadt, 
a: 

ms Limburg 
thys Richtig, 
jys end 

th:Lei der falsch, 

»end 

ts es ist der Limburger Dom 
ws 20 


Llsting 2. Demonstrationsprogramm für 
den Accept- und Match-Befehl 


Zum Beispiel: »TY: Richtig« gibt »Rich¬ 
tig« auf den Bildschirm, wenn die letzte 
Match-Anweisung ein positives Ergeb¬ 
nis brachte. 

Jeder mit Y oder N versehene Befehl, 
sei es nun TN, JY oder CN, bezieht sich 
also immer auf das Ergebnis der letzten 
Match-Anweisung. 

Unser neues Wissen wollen wir uns 
an einem weiteren Pilot-Programm 
ansehen (Listing 2). Da dieses die spe¬ 
ziellen Accept- und Match-Anweisun¬ 
gen benutzt, kann es nicht einfach Zeile 
für Zeile in ein Basic-Programm übertra¬ 
gen werden. Aber es ist trotzdem nicht 
schwierig zu verstehen. 

Der Benutzer wird gefragt, welches 
Gebäude ein 1000-Mark-Schein zeigt. 
Es handelt sich hierbei um den Limbur¬ 
ger Dom. 

Betrachtet man die Match-Anwei¬ 
sung, die hier Übereinstimmung fest¬ 
stellen soll, so sieht man, daß nur ein 
Vergleich mit »Limburg« stattfindet. Das 
hat durchaus seine Vorteile. Denn der 
Benutzer, der die Antwort kennt, kann 
nun »Limburger Dom«, »Der Limburger 
Dom« oder auch nur »Limburg« ein¬ 
geben. 

Alles wird hier als richtig erkannt, da 
jede Antwort das Vergleichswort »Lim¬ 
burg« enthält. Derartige Flexibilität 
kostet in anderen Programmierspra¬ 
chen wesentlich mehr Mühe als hier. 

War die Antwort korrekt, wird »Rich¬ 
tig« ausgegeben und zum Ende 
gesprungen. 


Aus Limburg kommt 
nicht nur Käse 


Bei falscher Antwort bekommt der 
Benutzer einen Tip und darf ein zweites 
Mal antworten. Danach erscheint es 
nicht mehr so unnatürlich, nur mit »Lim¬ 
burg« zu antworten, und so ist die 
Anweisung »M:Limburg« hier durchaus 
gerechtfertigt. 

Gehen Sie das Programm nun noch 
einmal durch und achten Sie besonders 
auf die Anwendung von A, M, Y, N. 

Kenner von Pilot meinen nun wohl zu 
dem Programm, daß man es noch kür¬ 
zer und einfacher hätte schreiben kön¬ 
nen. Das stimmt natürlich. Pilot kennt 
noch mehr ungewöhnliche Anweisun¬ 
gen, die zur Vereinfachung beitragen 
können. Aber die in diesem einführen¬ 
den Artikel vorgestellten Mittel erlau¬ 
ben es nicht. Es sollte Ihnen hier ja auch 
nur ein Überblick vermittelt werden, 
was Pilot leistet und wie es arbeitet. 
Einen Vergleich von Pilot gegenüber 
anderen Programmiersprachen sollten 
Sie jetzt aber zumindest ziehen können 
und sich dann entscheiden. 

(Eckart Winkler/ev) 


»start 

120 

rem Start 


ts:Geben Sie eine Zahl ein 

110 

rem 


a: #x 

120 

input x 


j (x=2> s pr i m 

130 

if >i=2 then 190 


c: i =2 

140 

i =2 


»test 

150 

rem test 


j <x/i»i*x > s notpr i m 

160 

if int(x/i)»i—x then 

220 

c: i«i + 1 

170 

+ 

II 


j <i<x)itest 

180 

if i<x then 150 


»prim 

190 

rem prim 


t:#x ist prim 

200 

print x;" ist prim" 


j : end 

210 

goto 240 


»notprim 

220 

rem notprim 


t: #x ist nicht prim 

230 

print x;" ist nicht 

prim" 

»end 

240 

rem end 


w: 20 

250 

rem pause 



Llsting 1. Vergleich: Primzahlenberechnung in Pilot und Basic 


Übersicht über die Pilot-Befehle 

T:Text 

Ausgabe eines Textes auf dem Bildschirm 

TSText 

Löschen des Bildschirms, dann Ausgabe 

TH Text 

Ausgabe eines Textes ohne Carriage Return 

A: #num.Var. 

Eingabe einer numerischen Variablen 

AS: #num.VAR. 

Eingabe einer einstelligen Zahl 

A: 

Eingabe in den Eingabe-Buffer 

AS: 

Eingabe eines Zeichens in den Buffer 

C:Var=Ausdr. 

Auswerten des numerischen Ausdrucks und Zuweisung des 
Wertes an die Variable 

J:Label 

Sprung zu einem Label 

•Label 

Kennzeichnung eines Labels 

MText 

Vergleich der letzen Eingabe mit dem Text 

Befehl(Bedingung):Operanden 

t Bedingte Anweisung. Die Bedingung muß ein logischer Aus¬ 
druck sein 

BefehlY:Operanden 

Befehl wird ausgeführt, wenn die letzte M-Anweisung positiv 
ausfiel. 

BefehlN:Operanden 

Befehl wird ausgeführt, wenn die letze M-Anweisung negativ 
ausfiel. 









Tiny Pilot zum Abtippen 


Die Programmiersprache Pilot 
eignet sich besonders für Lehr¬ 
programme. Hier ist ein Pro¬ 
gramm, das einen ersten Ein¬ 
druck dieser Sprache vermittelt. 

P ilot wurde erfunden, um auf 
besonders einfache Art und 
Weise Lehrprogramme zu ent¬ 
wickeln. Auf dieses Ziel abgestimmt ist 
daher auch die gesamte Struktur der 
Sprache. Pilot bietet einfache Befehle 
zur Ausgabe von Fragen, zur Eingabe 
von Antworten und zum Vergleich der 
Antworten mit vorgegebenen Texten. 
Zwei Flags, nämlich »V« (für Yes) und 
»N« (für No) speichern den Wahrheits¬ 
wert der Antworten und beeinflussen in 
sehr einfacher Weise den Programma¬ 
blauf. 

Der hier vorgestellte Tiny-Pilot- 
Interpreter lehnt sich an die Struktur der 
Sprache Pilot an, verfügt jedoch nur 
über einen eingeschränkten Befehls¬ 
satz. Die Befehle sind auch von der 
Komplexität und Leistungsfähigkeit her 
zum Teil wesentlich einfacher aufge¬ 
baut, als das in größeren Pilot-Ver¬ 
sionen der Fall ist. So sind Rechen¬ 
operationen nur sehr eingeschränkt 
möglich, Variable und Unterprogramm- 
Namen fehlen. 

Dieser Pilot-Interpreter soll denn 
auch kein professionelles Program¬ 
mierssystem für Pilot darstellen, son¬ 
dern lediglich einen ersten Eindruck 
dieser Sprache vermitteln. Vermißt 
jemand wesentliche Funktionen von 
Pilot, dann kann er diese ohne große 
Probleme selbst einbauen - der Inter¬ 
preter ist schließlich in Basic geschrie¬ 
ben und extra auf Erweiterungsfähig¬ 
keitangelegt. Das Programm (Listing 1) 
besteht intern eigentlich aus zwei Tei¬ 
len, nämlich dem Editor, mit dem Pilot- 
Programme geschrieben, gespeichert 
und verändert werden, und dem eigent¬ 
lichen Pilot-Interpreter, der Tiny-Pilot- 
Programme ausführt. Obwohl das Pro¬ 
gramm für den Schneider CPC 464 
geschrieben ist, läßt es sich ohne 
Schwierigkeiten auch an andere Com¬ 
putersysteme anpassen. 


Der Editor 


Der hier realisierte Editor orientiert 
sich am normalen Basic-Editor, das 
heißt, Programmzeilen werden, begin¬ 
nend mit einer Zeilennummer, eingege¬ 
ben. Durch Eingabe nur einer Zeilen¬ 


nummer (ohne weiteren Text) wird die 
entsprechende Zeile gelöscht. Weitere 
Kommandos werden im folgenden vor¬ 
gestellt. Dabei ist zu beachten, daß ein 
Befehl und ein eventuell angegebener 
Parameter (Zeilennummer oder Pro¬ 
grammname) immer durch genau ein 
Leerzeichen (Space) getrennt sein 
müssen. Programmnamen stehen im 
Gegensatz zu Basic nicht in Anfüh¬ 
rungszeichen. 

LIST nr: Listet Pilot-Programm. Die 
Angabe einer Zeilennummer (nr) 
bewirkt die Ausgabe des Listings ab 
dieser Zeile. Bei fehlender Zeilenan¬ 
gabe beginnt das Listing mit der ersten 
vorhandenen Zeile. Drücken der 
Space-Taste hält die Auflistung an, 
durch Betätigen irgendeiner anderen 
Taste wird das Listing fortgesetzt. Eine 
beliebige Taste (außer Space) während 
des Auflistens unterbricht das Listing 
total. 

LOAD name: Lädt ein Pilot- 
Programm von Kassette oder Diskette. 
Der Programmname wird mit der Erwei¬ 
terung »PLT« für Pilot versehen, falls er 
nicht schon eine Erweiterung enthält. 
Beispiel: Der Befehl »LOAD TEST« 
sucht und lädt eine Datei mit Namen 
»TEST.PLT«. Pilot-Programme werden 
als sequentielle Dateien abgelegt. Das 
öffnen einer sequentiellen Datei zum 
Lesen geschieht im Schneider-Basic 
mit dem Kommando »OPENIN 
"Name"«, geschlossen wird die Datei 
mit »CLOSEIN«. Das eigentliche Lesen 
aus der Datei geht mit »INPUT # 9« 
beziehungsweise »LINE INPUT # 9« vor 
sich. Diese Befehle unterscheiden sich 
von Computer zu Computer. Wenn Sie 
dieses Programm auf einem anderen 
Computer als einen Schneider CPC lau¬ 
fen lassen wollen, dann schlagen Sie 
bitte die entsprechenden Kommandos 
für Ihren Computer nach. 

SAVE name: Dieser Befehl speichert 
ein Pilot-Programm unter dem angege¬ 
benen Namen auf Kassette oder Dis¬ 
kette. Hinsichtlich Programmnamen 
und Anpassung an andere Computer 
gilt auch hier sinngemäß das bei LOAD 
Gesagte. Eine sequentielle Datei wird 
beim Schneider CPC mit »OPENOUT 
" Name"« zum Schreiben geöffnet und 
mit »CLOSEOUT« wieder geschlossen. 
Das eigentliche Schreiben in die Datei 
geschieht mit »PRINT #9«. 

EXIT Dieses Kommando beendet 
das Arbeiten mit dem Pilot-Interpreter, 
indem es einfach ins Basic zurückkehrt. 
Vergessen Sie nicht, Ihr Pilot- 
Programm vor EXIT zu speichern. 

CAT. Dieses Kommando listet das 


Inhaltsverzeichnis einer Diskette auf 
dem Bildschirm. Beim Schneider CPC 
geschieht dies ganz einfach durch das 
gleichlautende Basic-Kommando CAT, 
bei anderen Systemen kann das ent¬ 
sprechende Kommando anders lauten 
(DIR, DIRECTORY, CATALOG oder ähn¬ 
lich). Einige ältere Computermodelle 
benötigen an dieser Stelle ein ganzes 
Unterprogramm. 

NEW: Wie in Basic, so löscht dieser 
Befehl auch hier ganz einfach das im 
Speicher befindliche Pilot-Programm. 
Und wie in Basic sollte man diesen 
Befehl daher nur mit Überlegung 
anwenden. 

RUN: Ebenfalls ganz analog zu Basic 
veranlaßt RUN den Pilot-Interpreter, 
das im Speicher stehende Pilot- 
Programm auszuführen. 

Wer möchte, dem steht nichts im 
Wege, den Editor-Teil selbst um weitere 
Kommandos zu erweitern, etwa um 
einen RENUMBER-Befehl oder um ein 
Kommando für das Listen des Pilot- 
Programms auf einem Drucker. 


Die Tiny- 
Pilot-Befehle 


Nach RUN beginnt der Pilot- 
Interpreter, der im Listing die Zeilen ab 
1000 belegt, mit der Abarbeitung des 
Programms. Die Variable PC spielt 
dabei die Rolle eines Programmzählers. 
Sie enthält nämlich immer die Nummer 
der gerade aktuellen Befehlszeile. Nach 
der Ausführung eines Befehls wird PC 
um eins erhöht und zeigt auf die näch¬ 
ste Programmzeile. Ist diese Zeile leer, 
dann wird PC solange weiter erhöht, bis 
eine Befehlszeile gefunden wurde. 

Die Ausführung eines Befehls 
geschieht in drei Schritten. Als erstes 
wird getestet, ob die Befehlszeile mit 
den Buchstaben »Y« oder »N« anfängt. 
Ist dies der Fall, dann wird der Befehl in 
der Zeile nur dann ausgeführt, wenn 
das entsprechende Flag (Y oder N) 
gesetzt ist. Y und N beeinflußt in erster 
Linie der Vergleichsbefehl. War eine 
Antwort richtig, dann wird das Y-Flag 
gesetzt, war die Antwort falsch, das N- 
Flag. 

Nach dem Test, ob der Befehl über¬ 
haupt ausgeführt werden soll, erfolgt 
nun als zweites die Befehls-Analyse. 
Für jeden Pilot-Befehl steht ein einzel¬ 
ner Buchstabe oder ein Sonderzei¬ 
chen. Die Befehlszeile wird also zerlegt 
in ein Befehlszeichen (Variable A$) und 
einen Operandenstring (Variable B$). 











Hinweise zum Anpassen des Programms an andere Computer 

DEFINT A-Z 

Definiert alle numerischen Variablen als Integer. Kann fortgelassen 
werden. 

CLS 

Löscht den Bildschirm und bringt den Cursor in die linke obere Ecke. 

MID$(A$,n) 

Eine besondere Form der MID$-Funktion, die ja normalerweise mit drei 
Parametern aufgerufen wird. Ergibt alle Zeichen von A$ an der n-ten 
Position. Obwohl wenig bekannt, funktioniert diese Form bei praktisch 
allen Computern, die die MID$-Funktion überhaupt kennen. 

PRINT USING 

Eine formatierte PRINT-Anweisung. Hinter USING folgt ein Format- 
String, der die Feldbreite für das Ausdrucken einer folgenden numeri¬ 
schen Variablen enthält. USING und Förmatstring können fortgelassen 
werden, allerdings ergibt sich dann natürlich ein unformatierter Aus¬ 
druck. 

INSTR(A$,B$) 

Eine spezielle String-Funktion. Der String B$ wird innerhalb des 

Strings A$ gesucht. Die Funktion liefert als Ergebnis die Stelle, an der 

B$ in A$ auftaucht. Ist B$ in A$ nicht enthalten, dann ist das Ergebnis 
Null. Beispiel: »INSTR(" ABCD", "C")« liefert als Ergebnis den Zahlen¬ 
wert 3, denn »C« taucht in »ABCD« an der dritten Stelle auf. Falls 

INSTR in einer Basic-Version nicht vorhanden ist, muß die Funktion 
durch ein Unterprogramm ersetzt werden. 

ELSE 

Gegenstück zu THEN. Wenn die Bedingung in einer IFAnweisung 
nicht erfüllt ist, werden die Anweisungen hinter ELSE ausgeführt. Bei 
Computern, die ELSE nicht kennen, muß man eine solche IF¬ 
Anweisung entsprechend aufteilen. 

Beispiel: 

IF A=B THEN C=D ELSE E=F 

hat die gleiche Wirkung wie die beiden Zeilen 

IF A=B THEN C=D 

IF A()B THEN E=F 

INKEY$ 

Die Funktion wird in der Form »A$ = INKEY$« angewendet und ergibt die 
gerade gedrückte Taste. Es wird nicht auf das Drücken einer Taste gewar¬ 
tet, sondern ein Leerstring zurückgeliefert, wenn gerade keine Taste betä¬ 
tigt ist. Entspricht »GET A$« bei einigen Computern. 

LINE INPUT 

Wie INPUT, es können aber auch Kommata und so weiter eingegeben 
werden. Muß für einige Computer durch Unterprogramm realisiert wer¬ 
den. 

CAT 

Zeigt Disketten-Directory am Bildschirm an. Entspricht DIR, DIRECTORY, 
FILES, CATALOG und so weiter bei anderen Computern. 

OPENOUT "Name" 

öffnet sequentielle Datei zum Schreiben. 

PRINT #9 

Schreibt in sequentielle Datei. 

CLOSEOUT 

Schließt Schreib-Datei. 

OPENIN "Name" 

öffnet sequentielle Datei zum Lesen. 

INPUT #9 

Liest aus sequentieller Datei. 

LINE INPUT #9 

Liest einen ganzen Datensatz komplett mit Kommata und so weiter. 

CLOSEIN 

Schließt Lese-Datei. 


Übersicht der Schneider-spezifischen Befehle und ihrer Wirkung 



Es erfolgt eine Verzweigung in ver¬ 
schiedene Routinen je nach Befehl, 
und endlich als dritte Phase die eigentli¬ 
che Befehlsausführung. Um dem Inter¬ 
preter die Arbeit zu erleichtern (und 
damit die Abarbeitungsgeschwindig¬ 
keit zu erhöhen) fordern die Pilot- 
Befehle ein bestimmtes Eingabeformat. 
Falls eines der Flags Y oder N angege¬ 
ben ist, dann muß das Befehlszeichen 
direkt ohne Zwischenraum auf den 
Flag-Namen folgen. Hinter dem Be¬ 
fehlszeichen ist genau ein Leerzeichen 
vorgesehen, es wird aber nicht gete¬ 
stet, um was für ein Zeichen es sich 
dabei handelt. In der Regel drückt man 
die Leertaste (Space) nach dem Befehl, 
es ist aber auch ein beliebiges anderes 
Zeichen möglich. Insbesondere kann 
(muß aber nicht) beim T-Befehl zur Tex¬ 
tausgabe ein Anführungszeichen ver¬ 
wendet werden. Falls ein Befehl einen 
Parameter (Zeilennummer, Text oder 
Zahlenwert) benötigt, muß dieser an 
der übernächsten Position hinter dem 
Befehlssysmbol beginnen. 

Nach dieser Vorrede nun endlich die 
Pilot-Befehle im einzelnen: 

: text Kommentar - der folgende Text 
wird vom Interpreter ignoriert. 

T text Textausgabe - der nachfol¬ 
gende Text wird am Bildschirm ange¬ 
zeigt. Wenn das letzte Textzeichen ein 
Semikolon ist, wird nach der Textaus¬ 
gabe keine neue Zeile begonnen (das 
Semikolon wird nicht mit ausgedruckt). 
Eine weitere Textausgabe schließt dann 
unmittelbar an diesen Text an. Ist das 
letzte Zeichen kein Semikolon, beginnt 
nach der Textausgabe eine neue Zeile. 
Ein »T« allein erzeugt eine Leerzeile. 

A Antwort - Pilot wartet auf eine Text¬ 
eingabe vom Benutzer. Diese Eingabe 
wird in einem speziellen Antwort- 
Speicher (im Programm durch die Varia¬ 
ble C$ realisiert) zur weiteren Verwen¬ 
dung bereitgehalten. Der Antwortspei¬ 
cher enthält immer den mit dem letzten 
A-Kommando eingegebenen Text, alle 
früheren Antworten gehen durch ein 
A-Kommando verloren. 

V text Vergleich - prüft, ob die zuletzt 
eingelesene Antwort mit dem angege¬ 
benen Text übereinstimmt. Falls ja, dann 
wird das Y-Flag gesetzt und der »Match- 
Zähler« (er dient zum Zählen der richti¬ 
gen Antworten) um eins erhöht. Ist die 
letzte Antwort nicht mit dem Vergleichs¬ 
text identisch, dann wird das N-Flag 
gesetzt und der Match-Zähler bleibt 
unverändert. 

W Wiederhole letzte Antwort - druckt 
die zuletzt mit A eingelesene Antwort 
wieder aus. 

G Glocke - erzeugt ein kurzes akusti¬ 
sches Signal (entspricht der Basic- 
Anweisung »PRINT CHR$(7)«), das 
beispielsweise für Fehlermeldungen 
genutzt werden kann. 












1 REM TINY PILQT INTERPRETER 

2 REM- 

3 REM 

4 REM (c) Volker Everts, 1986 

5 REM 

10 DEFINT A-Z 

20 NN=199 s REM max. Anzahl Programmzeilen 
30 DIM P$ (NN+l) : P$ (NN+1) = "E" : REM Pilot-P 
rogramm 

40 CLSsPRINT TAB< 6 >;"*** TINY PILGT ***" 
SPRINT 

45 PRINT"OK" 

50 PRINT">"; :LINE INPUT A*sAS=A$+ H " 

60 IF LEFT$(A$ , 1) = " " THEN A*=MID*(A*,2) 
sGOTD 60 

70 IF AS*"» THEN 50 
80 I=INSTR(A$," ") 

90 B*=MID*(A*,I+ 1 )sA$=LEFT:$<A:S, 1-1) 

100 IF VAL(A$>>0 ÜR A*="0" THEN GOSUB 20 
OsGGTO 50 s REM Zeilennummer 
110 IF A*="LIST" THEN GOSUB 300s GOTO 45 

120 IF A*="L0AD" THEN GOSUB 400sGOTO 45 

130 IF AS="SAVE" THEN GOSUB 500s GOTO 45 

140 IF A$="EXIT" THEN GOSUB 600s GOTO 45 

150 IF A*="CAT" THEN GOSUB 700s GOTO 45 
160 IF A$="NEW" THEN GOSUB 800sGOTO 45 
170 IF A*="RUN" THEN GOSUB 1000sIF E THE 
N 180 ELSE 45 

175 PRINT"+++ UNBEKANNTES KOMMANDO"sGOTO 
45 

ISO PR INT"+4-4- FEHLER IN PILOT-PROGRAMMs" 
SPRINT PC;P$(PC)s E=Os GOTO 45 
185 PR INT"+ 4 -+ FALSCHE ZEILENNUMMER" s GOTO 
45 

197 REM 

198 REM Zeile einfuegen/ 1 oeschen 

199 REM 

200 N=VAL(A*)sIF N>NN THEN 185 
210 P*<N)=B* 

220 RETURN 

297 REM 

298 REM Pilot-Programm listen 

299 REM 

300 IF B$="" THEN B$="0" 

310 FOR I=VAL(B$> TO NN 

320 IF P*<I><>»" THEN PRINT USING"####"; 

I;SPRINT" ";P$<I) 

330 KS=INKEY$:IF K*="" THEN 360 
340 IF K*<>" " THEN I=NNsGOTO 360 
350 K*=INKEY$:IF K*="" THEN 350 
360 NEXT 
370 RETURN 

397 REM 

398 REM Pi1ot-Programm laden 

399 REM 

400 I = INSTR(B$IF 1=0 THEN B*=B*+". 
PLT" 

410 GOSUB 800s REM altes Programm loesche 
n 

420 OPENIN B$:REM sequentielle Datei oe-f 
fnen 


430 INPUT#9,NsIF N=-l THEN CLOSEINsRETUR 
N 

440 LINE INPUT#9,PS(N)sGOTO 430 

497 REM 

498 REM Pi1ot-Programm speichern 

499 REM 

500 I = INSTR (B$ IF 1=0 THEN B*=B*4-". 

PLT" 

510 OPENOUT B$sREM sequentielles File oe 
ffnen 


520 FOR 1=0 TO NN 
530 IF P*<I><>"" 
PS(I) 


540 NEXT 

550 PRINT#9, — 1 s CLOSEOUT 
560 RETURN 

597 REM 

598 REM Programm beenden 

599 REM 

600 PRINTSPRINT" ===== ENDE PILOT ==== 
="SPRINT 

610 END 

697 REM ,... . 

69B REM Catalog U*tlng 1. »TlnyfItotHnterpreter 

699 REM 

700 CAT:RETURN 

797 REM 

798 REM Pi1ot—Programm 1oeschen 

799 REM 


als Basic-Propramm 


800 FOR 1=0 TO NN:P*(I)=" M :NEXT 
810 RETURN 

997 REM 

998 REM Pilot-Programm starten 

999 REM 

1000 MZ=0:C*="":Y=0:N=0 
1010 PC=-1 


1020 PC=PC+1:IF P*(PC>="" THEN 1020 
1030 Z*=P*(PC):A*=LEFT*(Z*,1> 

1040 IF A*="Y" THEN Z*=MID*(Z*,2):A*=LEF 

T*(Z*,1):IF Y=0 THEN 1020 

1050 IF A*="N" THEN Z*=MID*(Z*,2):A*=LEF 

T*(Z*,1):IF N=0 THEN 1020 

1060 B*=MID*(Z*,3):IF A*=": M THEN 1020 ' 

Kommentar 

1065 IF LEN(B*> THEN B*=LEFT*(B*,LEN(B*) 
-1) 'Diese Zeile kann auf einigen Comput 
ern ent-fallen ! 

1070 IF A*=”T" THEN 1300 Text ausgeben 
1080 IF A*="A" THEN LINE INPUT C*:GOTO 1 
020 'Antwort einiesen 

1090 IF A*="S" THEN PC=VAL(B*>-1:GOTO 10 
20 'Sprung nach Zeile B* 

HOO IF A*= M U" THEN S (SP) =PC: SP=SP+1: PC= 
VAL(B*>—1:GOTO 1020 'Unterprogramm 
1110 IF A*="R" THEN SP=SP-1:PC=S(SP):GOT 
□ 1020 'Rueckkehr von Unterprogramm 
1120 IF A*="M n THEN PRINT MZjsGOTO 1020 
'Matchzaehler ausgeben 

1130 IF A*=»K" THEN MZ=VAL(B*>:GOTO 1020 
'Konstante in Matchzaehler laden 
1140 IF A*="W" THEN PRINT C*;:GOTO 1020 
'Wiederhole letzte Antwort 
1150 IF A*="V” THEN 1410 Vergleiche B* 
mit Antwort 

1160 IF A*="G" THEN PRINT CHR*(7);:GOTO 

1020 'Glocke, akustisches Signal 

1170 IF A*="-" THEN MZ=MZ-VAL(B*>:GOTO 1 

020 ‘Konstante von MZ subtrahieren 

1180 IF A*="+" THEN MZ=MZ+VAL <B*):GOTO 1 

020 'Konstante zu MZ addieren 

1190 IF A*="?" THEN B=VAL(B*):Y=(MZ>B):N 

=(MZ<B):GOTO 1020 'Vorzeichen von MZ bes 

timmen 

1200 IF A*="E" THEN RETURN 'Ende des Pro 
grammlaufs 

1210 IF A*="L" THEN GOSUB 400:GOTO 1010 
'Laden und starten eines Pilot-Prg. 

1220 E=—1:RETURN 'Fehler, unbekannter Be 
•fehl in Pi lot—Programm 
1230 REM 

1300 IF B*="” THEN PRINT:GOTO 1020 

1310 IF RIGHT* (B*, 1)="; •* THEN PRINT LEFT 

*(B*,LEN(B*)— 1 ) 5 :GOTO 1020 

1320 PRINT B*:GOTO 1020 

1400 REM 

1410 IF B*=C* THEN Y=-1:MZ=MZ+1 ELSE Y =0 
1420 N=(Y=0):GOTO 1020 


THEN PRINT49,I:PRINT49 
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"OK, das waren 3 Fragen. 

43 

T 

"Richtige Antworten:; 

44 

M 



45 T 

46 6 

47 T"Nochmal ? ; 

48 A 

49 V JA 

50 YS 1 

51 V NEIN 

52 YE 

53 T"Bitte JA oder MEIN antworten ! 

54 S 45 

55 : 

97 : 

98 : Unterprogramm Frage einleiten 

99 : 

100 T 

102 T"Was bedeutet... ; 

104 R 
107 s 

10B : Unterprogramm Antwort auswerten 

109 : 

110 YS 120 

112 T“Nein, ; 

113 W 

114 T" ist leider falsch ! 

115 R 

120 T"Bravo, das ist richtig ! 

122 G 
124 R 


Llsting 2. Ein Demo-Programm in Pilot. Bitte nur mit »Tlny-Pilot« eingeben, da es nicht auf jedem Interpreter läuft 


K zahl Konstante - lädt den Match- 
Zähler mit der angegebenen Zahl. Wird 
häufig mit der Zahl Null verwendet, um 
den Match-Zähler wieder auf den Aus¬ 
gangszustand zurückzusetzen. 

M Match-Zähler anzeigen - druckt 
den Inhalt des Match-Zählers als Zah¬ 
lenwert. Es wird dabei kein Zeilenvor¬ 
schub ausgeführt. 

+ zahl Addition - der angegebene 
Zahlenwert wird zum Match-Zähler hin¬ 
zuaddiert. Dient zum Addieren zusätzli¬ 
cher Bonus-Punkte und so weiter. 

- zahl Subtraktion - der angegebene 
Zahlenwert wird vom Match-Zähler 
abgezogen. Dient zum Vergeben von 
Malus-Punkten und so weiter. 

? zahl Test auf Zahlenwert - der 
Match-Zähler wird mit dem angegebe¬ 
nen Zahlenwert verglichen. Ist der 
Match-Zähler größer, dann wird das Y- 
Flag gesetzt, ist er kleiner, das N-Flag. 
Sind Match-Zähler und Zahlenwert 
genau gleich, gelten beide Flags als 
gelöscht. Dieser Befehl dient zur 
Abfrage bestimmter erreichter Punkt¬ 
zahlen. 

S zeile Sprungbefehl - das Pro¬ 
gramm verzweigt zur angegebenen 
Zeile (wie GOTO in Basic). 

U zeile Unterprogramm-Aufruf - der 
augenblickliche Wert des Programm¬ 
zählers wird auf einen Stack gerettet 
und die Programmausführung mit der 
angegebenen Zeile fortgesetzt. Ent¬ 
spricht etwa dem GOSUB in Basic. 


R Rückkehr vom Unterprogramm - 
der beim U-Befehl gerettete Inhalt des 
Programmzählers wird wiederherge¬ 
stellt, das Programm kehrt also in die 
dem zugehörigen U-Befehl folgende 
Zeile zurück. Entspricht RETURN in 
Basic. 

L name Laden und Starten - ein wei¬ 
teres Pilot-Programm wird geladen und 
automatisch gestartet. Dabei bleiben 
der Inhalt des Match-Zählers, die Flags 
Y und N sowie die letzte eingelesene 
Antwort unverändert erhalten. Durch 
diesen Befehl ist es möglich, nahezu 
beliebig lange Pilot-Programme laufen 
zu lassen, indem man kürzere Teilpro¬ 
gramme mittels L-Kommando verkettet. 
Bezüglich der Namensgebung gelten 
die gleichen Bemerkungen wie beim 
Editor-Befehl LOAD. 

E Ende - dieser Befehl beendet ein 
Pilot-Programm. Anschließend meldet 
sich wieder der Editor. 

Vor jedem dieser Befehle kann 
(braucht aber nicht) ein Y oder ein N 
stehen. Die Befehle werden dann nur 
ausgeführt, wenn das jeweilige Flag 
gesetzt ist. Gerade diese Fähigkeit 
gestaltet Pilot-Programme sehr flexibel. 

Empfehlenswert ist, sich strikt an die 
vorgegebenene Syntax der Befehle zu 
halten und speziell bei den Sprungbe¬ 
fehlen (S und U) große Sorgfalt hinsicht¬ 
lich der Richtigkeit der Parameter wal¬ 
ten zu lassen. Um die Arbeitsgeschwin¬ 


digkeit des Interpreters möglichst maxi¬ 
mal zu halten, finden während eines 
Programmlaufes kaum Überprüfungen 
auf einwandfreie Daten statt. Ein fehler¬ 
haftes Programm kann dadurch in eini¬ 
gen, glücklicherweise sehr seltenen, 
Fällen »abstürzen«, das heißt, es kommt 
zu einem Abbruch des Basic- 
Programms mit entsprechender Fehler¬ 
meldung. In einem solchen Falle ver¬ 
mag der Tiny-Pilot-Interpreter mit 
»GOTO 40« ohne Verlust des Pilot- 
Programms wieder gestartet zu wer¬ 
den. 

Listing 2 zeigt ein Beispielprogramm 
in Pilot. Um dieses Programm auszu¬ 
probieren, müssen Sie zunächst den 
Tiny-Pilot-Interpreter (Listing 1) abtip¬ 
pen und mit RUN starten. Tiny Pilot mel¬ 
det sich mit »OK« und ist dann bereit, 
Programmzeilen anzunehmen. Das Bei¬ 
spielprogramm stellt einen Mini- 
Vokabeltrainer dar. Es werden drei 
Vokabeln abgefragt und zum Schluß die 
Anzahl der richtigen Antworten ausge¬ 
geben. Natürlich ist dieses Beispiel 
noch beliebig ausbaufähig. Vielleicht 
fallen Ihnen ja auch noch ganz andere 
Sachen ein, die Sie mit Tiny Pilot ver¬ 
wirklichen können. Auf jeden Fall erhal¬ 
ten Sie einen kleinen Eindruck von die¬ 
ser interessanten und etwas eigenwilli¬ 
gen Sprache, auch wenn nochmals 
betont werden muß, daß die Leistungs¬ 
fähigkeit des »echten« Pilot doch um 
einiges höher ist. (ev) 








Der Nachfolger: Modula 2 


M odula 2 wurde, ganz ähnlich 
wie etliche Jahre zuvor Pas¬ 
cal, von Professor N. Wirth 
an der ETH Zürich entwickelt. Die Ziffer 
2 hinter dem Namen besagt nichts wei¬ 
ter, als daß es sich um die zweite Ver¬ 
sion dieser Sprache handelt. Modula 
wurde als direkter Nachfolger von Pas¬ 
cal konzipiert und führt das Prinzip der 
»strukturierten Programmierung« wei¬ 
ter fort. 

Da Modula von Anfang an aber auch 
für die Systemprogrammierung ge¬ 
dacht war, sind mit dieser Sprache auch 
alle jenseits eines guten Programmier¬ 
stils liegenden, aber sehr effizienten 
Manipulationen möglich, die die 
Assemblersprachen und C so berühmt¬ 
berüchtigt gemacht haben. Allerdings 
muß solch eine »spezielle« Absicht 
gewissermaßen vorher angemeldet 
werden. 

Bei einer Beschreibung der Sprache 
kann man ruhigen Gewissens von Pas¬ 
cal ausgehen, da Pascal fast schon als 
eine Teilmenge von Modula zu bezeich¬ 
nen ist. Bis auf unwesentliche syntakti¬ 
sche Details wurden alle Eigenschaften 
von Pascal praktisch unverändert über¬ 
nommen, wobei die wenigen geänder¬ 
ten Details der Sprache durchwegs gut 
bekommen sind. Der einzige wirklich 
deutlich gegenüber Pascal geänderte 
Teilbereich betrifft die Ein- und Ausgabe 
von Daten, die völlig anders organisiert 
ist. Neuheiten sind natürlich auch zu 
verzeichnen: 

Als wichtigstes neues Merkmal von 
Modula, das der Sprache auch zu ihrem 
Namen verholten hat, gibt es die Mög¬ 
lichkeit, völlig unabhängige Module zu 
schreiben, deren interne Daten nicht 
von außen zugänglich sind. In Modula 2 
besteht ein Modul aus zwei getrennten 
Teilen, einem Definitions- und einem 
sogenannten Implementationsteil. 

Programmteile, die mit einem Modul 
arbeiten, dürfen sich ausschließlich auf 
den Definitionsteil des jeweiligen 
Moduls beziehen, der im wesentlichen 
die von außen benutzbaren »Objekte« 
(Variable, Datentypen etc.) mit ihren 
wichtigen Attributen aufzählt. 

Der Implementationsteil gibt dann die 
genaue Ausführung der Datentypen 
und Unterprogramme an, die im Defini¬ 
tionsteil deklariert wurden. 

Der Implementationsteil kann auch 
nach dem Definitionsteil übersetzt und 
sogar getrennt vom Definitionsteil neu 
übersetzt werden. Leider hat das zur 
Folge, daß jeder Modula-Compiler 
einen speziellen Linker nur für Modula- 
Programme braucht; herkömmliche Lin- 


Professor N. Wirth, der »Vater« 
von Pascal, hat sich mit Modula 
2 einen neuen Geniestreich 
geleistet. Diese Sprache ist 
dabei, ihrem Vorgänger Pascal 
den Rang abzulaufen. 


ker können nämlich die Überprüfungen, 
die beim Linkprozeß eines solchen 
Moduls notwendig werden, nicht vor¬ 
nehmen. 

Jedes Modul beinhaltet eine Liste, 
welche Objekte aus welchen anderen 
Modulen zur Anwendung »importiert« 
werden dürfen. Diese Liste bläht zwar 
das Programm ziemlich auf, da in der 
Regel doch recht viele Objekte zu über¬ 
nehmen sind (vor allem eben die Ein- 
und Ausgabe); andererseits erhält 
damit der Compiler Gelegenheit, zu 
überprüfen, ob diese Objekte wirklich 
von den anderen Modulen exportiert 
werden. Diese Möglichkeit der Über¬ 
prüfung durch den Compiler sollte man 
nicht unterschätzen, vermeidet sie 
doch viele Fehler, die auf irrtümlicher 
Verwendung irgendwelcher globaler 
Parameter oder Daten in herkömmli¬ 
chen Programmiersprachen beruhen. 


Flexibilität durch 
Prozedur-Variable 


Eine weitere wichtige Erweiterung 
gegenüber Pascal stellt die Einführung 
von sogenannten Prozedur-Variablen 
dar. Das hat zur Konsequenz, daß bei¬ 
spielsweise auch Arrays von Prozedu¬ 
ren oder vektorwertige Funktionen 
möglich sind, für den Systemprogram¬ 
mierer sicherlich nicht uninteressant. 

Bei den Unterprogrammen gibt es 
noch eine Neuerung, die bei einigen 
Pascal-Implementationen schon in 
unterschiedlichen Formen geprobt 
wurde: 

Wenn T ein Typname ist, kann man 
einen Parameter als »ARRAY OF T« 
deklarieren. Dann sind alle Arrays, die 
Elemente vom Typ T sind, als Argu¬ 
mente des Unterprogramms zu verwen¬ 
den. Das Unterprogramm kann die 
Grenzen des Indexbereichs durch eine 
Standardfunktion abfragen, so daß man 
weiß, welche Array-Elemente existieren 
und welche nicht. 

Außerdem gibt es für die am häufig¬ 
sten verwendeten Sprunganweisungen 
Ersatzanweisungen, die im Gegensatz 
zum altbekannten und verpönten 


»GOTO« nicht mit der strukturierten Pro¬ 
grammierung in Konflikt geraten kön¬ 
nen: Es handelt sich um Befehle, die die 
Abarbeitung einer Schleife bezie¬ 
hungsweise eines Unterprogramms 
vorzeitig beenden. 

Allerdings kann man nicht mehrere 
Schleifen auf einmal abbrechen, son¬ 
dern nur immer die innerste Schleife, in 
der sich das Programm zum Zeitpunkt 
des Abbruchs befindet. Das setzt der 
Brauchbarkeit der Abbruchsanweisung 
für Schleifen doch eine deutliche 
Grenze. 

Konsequenterweise gehört auch der 
unbedingte Sprung »GOTO« immer 
noch zu der Sprache. Erwähnenswert 
ist die Möglichkeit, in der Konstanten¬ 
vereinbarung statt Konstanten auch 
konstante Ausdrücke anzugeben. 
Damit ist es viel leichter als in Pascal, 
genaue Wertebereiche anzugeben, in 
denen sich Variable bewegen; es 
kommt ja häufig vor, daß eine Variable 
genau dieselben Werte wie eine andere 
Variable annimmt, bis auf genau einen 
Randwert. In solchen Fällen mußte man 
in Pascal bei Anpassungen des Werte¬ 
bereichs immer zwei Konstanten 
ändern, in Modula bei Deklarationen 
nach dem Muster 

CONST 

big=99999; 

bigger=big+l 

lediglich eine. 

Die letzte wichtige Änderung, die 
noch auffällt, ist bei einer Hochsprache 
schon recht ungewöhnlich: Modula 
akzeptiert Zahlen nicht nur in der übli¬ 
chen dezimalen Schreibweise, sondern 
auch in hexadezimaler (richtig eigent¬ 
lich: sedezimal) oder oktaler Darstel¬ 
lung. Für Systemprogrammierer, die ja 
immer wieder einzelne Bits aus einer 
Zahl benötigen oder direkt auf Maschi¬ 
nenadressen zugreifen, ist dies sicher¬ 
lich eine wertvolle Unterstützung. 

Modula 2 ist bislang nur für IBM- 
kompatible Computer unter MS-DOS 
sowie für die Atari-ST-Reihe erhältlich. 
Die Atari-ST-Version stammt von TDI- 
Software; Vertrieb in Deutschland 
durch Focus Computer. Die leider nur in 
englisch erhältliche Dokumentation 
reicht aus, allerdings gerade bei der 
Beschreibung der für den Systempro¬ 
grammierer interessanten Konstruktio¬ 
nen geriet sie etwas knapp. Sehr positiv 
dagegen ist die vollständige Anbindung 
dieses Modula-Systems an die Benut¬ 
zeroberfläche GEM - ein echtes Pro¬ 
dukt für das 68000-Zeitalter also. 

(Joachim Durchholz/ev) 

















Und sie 
lernen doch 
denken 


Lisp, Logo, Prolog, Exoten unter 
den Programmiersprachen. Spra¬ 
chen der »Künstlichen Intelli¬ 
genz«, Sprachen für Programme, 
die dazulernen. Sie könnten die 
Grundlage sein für Computer, die 
ohne Programmierer auskom- 
men! 

ir befinden uns im Jahre 
1991. Japan hat seine An¬ 
kündigung wahr gemacht: 
Die Prolog-Maschine ist da und sie 
sticht alles aus, was die Welt bisher an 
Computern gesehen hat. Das Modell 
für den deutschen Markt steht bei mir 
zu Hause - als Redakteurin einer Com¬ 
puterzeitung habe ich eins der ersten 
Exemplare ergattert. 

An der INWB (die Internationale 
Netzwerk-Buchse) und am Stromnetz 
ist sie schon angeschlossen. Nun stellt 
sie sich kurz vor (sie heißt Com-Pu-Ta). 
Die neue Superrechenmaschine spricht 
mit mir - natürlich deutsch. Ihre Stimme 
gefällt mir. Wir plaudern ein bißchen 
über meine Wohnungseinrichtung und 
das Fernsehprogramm heute abend. 
Und dann fühle ich ihr ein wenig auf den 
Zahn, frage sie nach Geschichtsdaten, 
gebe ihr Mathematikaufgaben zu lösen, 
spiele ihr Musik vor und lasse mir erzäh¬ 
len, wie die Stücke entstanden sind, 
wer sie singt und wovon sie handeln. 
Auch meine Fragen nach dem ersten 


Artikel auf Seite 3 in der Süddeutschen 
Zeitung vom letzten Freitag beantwor¬ 
tet sie prompt. Ich bitte sie, mir die wich¬ 
tigsten Bücher und Artikel zu dem 
Thema zusammenzustellen und die 
Liste auf meinen PC zu übertragen. 
Kein Problem. Etwas länger braucht sie 
allerdings schon, um sich in die japani¬ 
sche Zentral-Datenbank einzuloggen 
und mir das schönste Video über 
Kabuki-Theater rüberzuholen. Viel¬ 
leicht war aber nur das INW überlastet. 
Während ich mir das Video auf dem 
Monitor ansehe, erklärt sie mir auf 
meine Fragen, wie lange die Darsteller 
üben müssen, um diese exakten Bewe¬ 
gungen zu beherrschen. Als sie dann 
aber auf die Geschichte des japani¬ 
schen Theaters eingehen will und ins 
Philosophische abrutscht, lenke ich 
ein: das wird mir zu kompliziert. Sie 
merkt sofort, daß ich mich lieber unter¬ 
halten lasse und im Augenblick keine 
Lust habe, soviel zu denken. Freundli¬ 
cherweise macht sie keine Bemerkung 
dazu. Aber intern hat sie wohl den 
»Anspruchspointer« etwas runterge¬ 
setzt. Ich merke an der Wortwahl, daß 
sie weniger Fremdworte benutzt als 
vorher. Nach dem Theater-Video 
schlägt sie mir einige andere Filme vor, 
die mir gefallen würden - wie sie meint. 
Aber ich bin durch die Liebesge¬ 
schichte in dem Theaterstück nach¬ 
denklich geworden und erzähle ihr von 
meinen Gedanken: 


»Gefühle sind so unberechenbar. 
Warum liegen Liebe und Haß, Leiden¬ 
schaft und Wut so nah nebeneinan¬ 
der?« Und hier wird mein Supercompu¬ 
ter zum erstenmal ratlos. »Das mußt Du 
mir näher erklären«, sagt sie. »Ich ver¬ 
stehe nicht, was Du mit Deiner Frage 
meinst.« In diesem Augenblick war ich 
sicher: Es dauert nicht lange und sie 
wird auch das verstehen. 

Im menschlichen Verhalten verbindet 
man einige charakteristische Fähigkei¬ 
ten mit Intelligenz: sprechen und Spra¬ 
che verstehen können, lernen, Pro¬ 
bleme lösen, sich eine eigene Meinung 
bilden, mathematische Sätze beweisen 
und natürlich Computer zu programmie¬ 
ren. Die Programmiersprachen Lisp und 
Prolog wurden entwickelt, um damit 
Programme zu entwerfen, die das alles 
können. Auf diesen Sprachen bauen 
die Programmbausteine auf, aus denen 
dann schließlich Expertensysteme 
oder Robotersteuerprogramme ent¬ 
wickelt werden. Programme, die Bilder 
erkennen und identifizieren; Pro¬ 
gramme, die Deutsch oder Japanisch 
verstehen. Programme, die erklären, 
was sie gerade getan haben und warum 
sie zu einem bestimmten Ergebnis 
gekommen sind. Intelligente Pro¬ 
gramme. 

In den Anfängen der Kl-Forschung 
waren es vor allem die Forscher an 
Universitäten, die Grundlagenarbeit zu 
den Themen Wissensverarbeitung be¬ 
trieben. Inzwischen ist Kl-Programmie- 
rung auch in der Industrie angesiedelt. 
60 Prozent der Programmsysteme auf 
Lisp-Maschinen sind Expertensy¬ 
steme. Programme für Planung, Softwa¬ 
reentwicklung, Bild- und Sprachverar- 
beitung (Roboter) und natürlichsprach¬ 
liche Systeme stellen die restlichen 40 
Prozent. 

Expertensysteme sind »intelligente« 
Programme aus dem Bereich der 
Künstlichen Intelligenz mit ganz 
bestimmten Eigenschaften. Ihre Auf¬ 
gabe ist es, wie ein menschlicher 
Experte über ein bestimmtes Gebiet 
(möglichst) vollständig Bescheid zu 
wissen. Solche Anwendungsgebiete 
können in der Medizin (Diagnose, 
Behandlung von Tropenkrankheiten), 
der Technik (Konstruktion von Auto¬ 
motoren, im Aufbau von Rechnerkonfi¬ 
gurationen), oder in der Geschichte lie¬ 
gen. Jedes Gebiet, in dem es menschli¬ 
che Spezialisten gibt, ist geeignet. 
Expertensysteme bestehen aus meh¬ 
reren Komponenten. Die Wissensbasis 
enthält das Expertenwissen, das auf 
geeignete Weise im Computer darge¬ 
stellt wird. Der Aufbau dieser Wissens¬ 
basis ist das Kernproblem, das sich bei 
der Entwicklung eines Expertensy¬ 
stems stellt. Nicht nur Buchwissen soll 
aufgenommen werden, sondern auch 

















Erfahrungswissen, das, was man erst 
durch langjährige Praxis an Tricks und 
Kniffen lernt. Ein Expertensystem 
arbeitet auf dieser Wissensbasis und 
zwar im Dialog mit seinem Benutzer. 
Diese Dialogkomponente ist ebenfalls 
typisch. Der Benutzer stellt dem Pro¬ 
grammsystem Fragen: (»Welche Krank¬ 
heit hat der Patient, wenn folgende 
Symptome auftreten:...?«) oder »Ich will 
für meine Schreinerei einen Computer 
und Software anschaffen. Was braucht 
man und was gibt es?« Nachdem der 
Computerexperte aufgrund seines 
gespeicherten Wissens und im 
Gespräch mit dem Fragenden alle nöti¬ 
gen Informationen gesammelt und eine 
Lösung des Problems gefunden hat, 
kann der Benutzer von der Erklärungs¬ 
komponente Gebrauch machen. Das 
Expertensystem erklärt jeden einzel¬ 
nen Schritt seiner Schlußfolgerungen. 
Dies sind die wesentlichen Bestand¬ 
teile eines Expertensystems: Eine Wis¬ 
sensbasis, die auch vages Wissen ent¬ 
hält, die Dialog- und die Erklärungskom¬ 
ponente. 

Wissensbasis (knowledge base) - 
ein weiterer Begriff, der sehr häufig im 
Zusammenhang mit Kl-Programmen 
gebraucht wird. In einer Wissensbasis 
werden Informationen gespeichert. 
Das größte Problem stellt dabei die Auf¬ 
bereitung des Wissens dar. Denn in der 
Künstlichen Intelligenz wird meist nicht 
mit mathematischem Wissen gearbei¬ 
tet, sondern mit der Manipulation von 
Symbolen. Eine häufig verwendete 
Form, in der dieses Wissen dargestellt 
wird, sind Regeln: 

WENN (IF) ... DANN (THEN) ... 

WENN bestimmte Bedingungen 
zutreffen, DANN kann man daraus (mit 
einer bestimmten Wahrscheinlichkeit) 
schlußfolgern, daß eine bestimmte 
Situation vorliegt. 

Beispiel (simpel und fingiert): 

WENN der Patient raucht, DANN ist die 
Wahrscheinlichkeit, daß er zu dick ist, 5 
Prozent höher als sonst. Andere Dar¬ 
stellungsformalismen für verschiedene 
Arten von Wissen werden im Kapitel 
»Wissensrepräsentation« vorgestellt. 

Lisp wurde etwa 1960 am MIT (Mas¬ 
sachusetts Institute of Technology) 
unter der Leitung von John McCarthy 
entwickelt. Die Hauptanwendung von 
Lisp (LISt Processing language) 
besteht, wie der Name es schon sagt, in 
der Verarbeitung von Listen. Typische 
Lisp-Anwendungen sind Programme, 
die natürliche Sprache verstehen, 
Expertensysteme, automatisches 
Beweisen und andere Forschungsrich¬ 
tungen der Künstlichen Intelligenz. Lisp 
unterscheidet sich sehr von den her¬ 
kömmlichen Programmiersprachen. 
Der wesentliche Unterschied liegt 
darin, daß Programm- und Datenstruk¬ 


turen übereinstimmen. Ein Lisp- 
Programmteil kann selbst wie die übli¬ 
chen Programmdaten behandelt wer¬ 
den. Man kann also zusätzliche Funk¬ 
tionen später einiesen, Funktionsdefi¬ 
nitionen im Programmablauf über¬ 
schreiben und damit das Programm 
selbst verändern. Damit war Lisp die 
erste Programmiersprache, in der man 
lernende Programme schreiben 
konnte, die sich selbst veränderten. 

Lisp besitzt - verglichen mit anderen 
Programmiersprachen - sehr wenig 
Datentypen: Atome (Bild 1) und Listen¬ 
strukturen (Bild 2). Ein Atom kann ent¬ 
weder eine Zeichenkette sein (A) oder 
eine Zahl (3). 

Die grundlegende Datenstruktur bil¬ 
det jedoch das CAR-CDR-Paar. CAR 
bezeichnet das erste Element einer 
Liste. CDR (gesprochen: Kader) ist ein 
Zeiger, der auf den Anfang der Restliste 
verweist. 

Bild 1 zeigt zwei solche CAR-CDR- 
Paare. Der CAR des ersten Atoms ist A, 
der des zweiten Atoms ist 3 - NIL ist der 
Standardwert eines leeren Atoms, hier 
eines Zeigers, der auf kein weiteres Ele¬ 
ment verweist. 

Der gesamte (freie) Speicherbereich, 
der sogenannte »free space«, wird in 
solche Paare unterteilt. Dieser Spei¬ 
cher beinhaltet sowohl Programme als 
auch Daten, die beide durch CAR-CDR- 
Paare realisiert werden. Im allgemeinen 
sind die Datenelemente Listen. Eine 
Liste wird realisiert, indem man CAR- 
CDR-Paare aneinanderhängt (Bild 2). 
Die Liste lautet in Lisp-Darstellung (A B 
C) - sie besitzt also die drei Elemente A, 
B und C. Die einzelnen Atome werden 
miteinander durch Zeiger verkettet. Der 
Zeiger steht in unserem Beispiel jeweils 
in der CDR-Zelle und zeigt auf das näch¬ 
ste Listenelement. Auf diese Weise 
werden die einzelnen Paare durch die 
CDR-Zeiger miteinander verknüpft. Der 
CAR-Teil des ersten Listenelements A 
enthält nur den Wert - nämlich A. Im 
CDR-Teil steht der Zeiger, der auf das 
nächste Listenelement (B) verweist. 
Das letzte Element dieser kleinen Liste 
ist C. C hat keinen Nachfolger. Daher 
verweist sein CDR auf ein leeres Atom, 
das der Ausdruck »NIL« bezeichnet. 
Das CDR-Feld des letzten Elements C 
ist ein spezielles Atom, das für den 
Abschluß einer Liste dient. Neue Ele¬ 
mente können ganz einfach an das 
Ende einer schon bestehenden Liste 
angehängt werden. NIL wird dann 
durch den Verweis auf ein neues Listen¬ 
element ersetzt. Bild 3 zeigt die alte 
Liste (A B C), nachdem ein neues Ele¬ 
ment D angehängt wurde. 

Welche Inhalte diese Liste hat, ist bis¬ 
her noch völlig offen. Die Listenele¬ 
mente A, B und C können Informationen 
verschiedenster Art aufnehmen. Reali¬ 


A 

NIL 

3 

NIL 


Blld 1. Zwei Lisp-Atpme 


siert wird dies so: Der CAR-Teil wird als 
Zeiger verstanden - wie schon der 
CDR. Er verweist wiederum auf eine 
Liste, die nun in unserem Beispiel die 
Informationen des ersten Kunden (Bild 
4) enthält. Wie wir schon gesehen 
haben, kann jedes CAR-Feld selbst wie¬ 
der Zeiger auf eine andere Liste sein. 

Diese Liste kann aber auch eine 
Funktion bezeichnen, die auf zwei Ele¬ 
mente angewendet werden soll (zum 
Beispiel: (CONS X Y)). Was diese Funk¬ 
tion macht, wird noch erklärt. Denn Lisp 
macht keinen Unterschied zwischen 
der Struktur von Daten und der Pro¬ 
grammstruktur. Lisp unterscheidet nur 
zwischen Atomen (Strings, Zahlen oder 
NIL) und Nicht-Atomen. Solche Listen¬ 
konstruktionen aus Informationsinhal¬ 
ten und Zeigern erzeugen beliebige 
Strukturen. Damit hat Lisp eine außer¬ 
gewöhnliche Flexibilität und Mächtig¬ 
keit - andererseits erhält man so verwir¬ 
rend abstrakte Datenkonstruktionen. 

Jedes Lisp-Programm besteht aus ei¬ 
ner Reihe von Funktionen, die vonein¬ 
ander unabhängig sind - einem Funk¬ 
tionsbündel. Eine Funktion, ob vom An¬ 
wender (BUILD in Listing 1, FACT in 
Listing 2) angegeben oder vom System 
vordefiniert (CONS), liefert einen Wert 
als Ergebnis. Solange die einzelnen 
Funktionen nicht ausgeführt werden, 
besteht zwischen ihnen keine Verbin¬ 
dung - man sagt, sie sind nur dyna¬ 
misch verbunden. Jede Lisp-Funktion 
hat während ihrer Ausführung Zugriff 
auf den gesamten »free space«. Funk¬ 
tionen bearbeiten während ihrer Lauf¬ 
zeit Datentypen: Sie können dynami¬ 
sche Listen erzeugen oder verändern. 

Nochmal zurück zu der frappieren¬ 
den Übereinstimmung von Programm 
und Daten: Um diese besser zu verste¬ 
hen, betrachten wir die Liste (A B C). 
Wir haben angenommen, daß A eine 
Funktion bezeichnet, B und C ihre bei¬ 
den Argumente. Die Liste wird in die¬ 
sem Fall also als Funktionsaufruf 
betrachtet. Lisp-Funktionen werden 
folgendermaßen geschrieben: Ein 
Funktionsaufruf besteht aus einer (öff¬ 
nenden) Klammer, gefolgt vom Funk¬ 
tionsnamen und den aktuellen Argu¬ 
menten der Funktion. Nach dem letzten 
Argument folgt als Abschluß eine 
schließende Klammer. CONS erzeugt 
ein neues CAR-CDR-Paar. Das erste 
Argument wird ins CAR-Feld, das 
zweite in das CDR-Feld geschrieben. 
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Bild 2. Eine Liste mit drei Elementen A, B und C 



Bild 3. Die Liste mit einem neuen Element D 



In komplexeren Programmen wird es 
nötig, die Funktionsaufrufe ineinander 
zu schachteln. Listing 1 zeigt eine sol¬ 
che Funktion mit drei geschachtelten 
CONS-Aufrufen. 

Listing 1: 

(BUILD (LAMBDA (X Y Z) 

(CONS X (CONS Y (CONS Z NIL))))) 

Die innerste der geschachtelten 
Funktionen wird immer zuerst ausge¬ 
führt (hier also »(CONS Z NIL)«). Der 
resultierende Wert dient der nächsten 
Funktion als Argument. Die Abarbei¬ 
tung erfolgt Schritt für Schritt von innen 
nach außen. X, Y und Z werden hier als 
Platzhalter aufgefaßt. Nehmen wir fol¬ 
gendes an: Der Platzhalter X steht für 
den Wert A, Y ist an den Wert B gebun¬ 
den und Z an C. Nun wird gerechnet. In 
dem Ausdruck (CONS Z NIL) wird der 
Platzhalter Z »evaluiert« (ausgewertet). 
Wir erhalten dafür dem Wert A. Die 
Funktion CONS arbeitet nicht mit den 
Namen ihrer Argumente ( also nicht mit 
X, Y und Z), sondern mit den Wert, der 
an sie gebunden ist. 

Durch »(CONS C NIL)« erhalten wir 
ein Atom, wie es in Bild 1 schon steht. 
Mit diesem Atom (nämlich A) wird auf 
der nächsten Ebene - »(CONS Y 
(CONS Z NIL))« - weitergearbeitet. Y 
wird wieder ausgewertet zu B. Wir er¬ 
halten als Ergebnis eine Liste (B C). Auf 
der obersten Ebene erhält die Funktion 
BUILD nun endlich ihren Wert. Das Er : 
gebnis ist (A B C). 

Dieselbe Liste kann man auch so 
errechnen: 

(CONS ’A (CONS ’B (CONS 'C NIL))) 

Ein »’«(Quote genannt) wird den Be¬ 
zeichnern A, B und C vorangestellt. Die¬ 
ses Quote-Zeichen teilt dem Lisp-Inter- 
preter mit: »Werte den folgenden Aus¬ 
druck nicht aus, sondern nimm ihn wört¬ 
lich.« Wie man sieht, muß NIL nicht 
gequotet werden. Das Ergebnis ist wie¬ 
der die Liste (A B C). 


Ebenso wie die Funktionenaufrufe in 
BUILD kann man auch Listen schach¬ 
teln. Zum Beispiel 

»(DAS (WAR (DER (DREIZEHNTE) AN¬ 
RUFER))«. Die Liste wird »wörtlich« 
genommen - dafür sorgt wieder das 
Quote-Zeichen. 

Drei grundlegende System-Funktio¬ 
nen kennen wir nun schon: CAR, CDR 
und CONS. CAR und CDR dienen als 
Zeiger, die bestimmte Werte aus einer 
Liste holen und die die CAR-CDR-Paare 
einander zuordnen. Die CONS-Funk- 
tion wird zur Erzeugung neuer Struktu¬ 
ren benötigt. Das Resultat ist ein neues 
CAR-CDR-Paar, in dem das erste Argu¬ 
ment im CAR-Feld steht, das zweite im 
CDR-Feld. 

Listing 2 zeigt die bekannte Fakultäts¬ 
funktion in Lisp. Durch COND wird eine 
IF-THEN-ELSE-Abfrage in Lisp reali¬ 
siert. 

Listing 2: 

(FACT (LAMBDA (N) 

(COND ((EQN N 1) 1) 

(T (TIMES N (FACT (SUB1 N))))))) 

Diese Funktion ist rekursiv definiert - 
das heißt, sie benutzt in ihrer Definition 
sich selbst als Funktion - wie ein Maler, 
der ein Bild malt, auf dem ein Maler ein 
Bild malt, auf dem ein Maler... Wie eine 
rekursive Berechnung abläuft, wird 
gleich klar. Vorher noch einiges zum 
Aufbau einer Funktionsdefinition: Dem 
Funktionsnamen FACT folgt der Aus¬ 
druck LAMBDA und das Argument N - 
die Funktionsargumente werden als 
Liste geschrieben, daher die Klam¬ 
mern. Mit LAMBDA wird die Funk¬ 
tionsdefinition eingeleitet. Nach der 
Liste der Argumente folgt der Funk¬ 
tionskörper. Das COND entspricht dem 
bekannten IF-THEN-ELSE. Wenn N den 
Wert 1 hat (EQN N 1), dann soll die 
Funktion FACT den Wert 1 haben. Der 
ELSE-Zweig wird in Lisp so realisiert: T 
bedeutet TRUE, diese Bedingung trifft 


immer zu. Also lautet die Anweisung: 
sonst multipliziere (TIMES) N mit (FACT 
(SUB1 N)). Hier haben wir einen rekur¬ 
siven Aufruf der Funktion. Die Fakultät 
von N-1 (SUB1 N) wird berechnet. 
Ermitteln wir doch einmal probeweise 
die Fakultät von 3. (FACT 3) ist der 
Funktionsaufruf. N ist nicht gleich 1, 
also multiplizieren wir N (=3) mit (FACT 
2). Wieder ist N (=2) nicht gleich 1, also 
rechnen wir 3*2*(FACT 1). Nun end¬ 
lich ist die erste Bedingung im COND- 
Ausdruck erfüllt. (FACT 1) liefert den 
Wert 1. Wir berechnen also 3 * 2 * 1 und 
erhalten 6. 

Die einzelnen Bedingungen in einem 
COND-Ausdruck werden geprüft, in¬ 
dem die angegebenen Funktionen (hier 
(EQV NI)) ausgeführt werden. Ist eine 
Bedingung nicht erfüllt, dann liefert die 
Funktion den Wert NIL. Dieser hat die 
Bedeutung eines logischen »NICHT« als 
Resultat einer Bedingung. Jedes 
andere Ergebnis wird als TRUE inter¬ 
pretiert. 

Die bisher besprochenen Funktionen 
sind alle sehr einfach. Lisp liefert jedoch 
eine ganze Reihe von Funktionen, wel¬ 
che die unterschiedlichsten Abfragen 
ermöglichen. Zusätzlich kann der 
Anwender beliebige Funktionen selbst 
definieren. 

Logo wurde 1967 von Seymour 
Papert am Massachusetts Institute of 
Technology in Boston definiert, und 
erfuhr seitdem verschiedene Imple¬ 
mentationen vor allem auf größeren 
Computern durch die Forschungsfirma 
Bolt, Beranek und Newman Inc. und 
durch die Logo-Gruppe des MIT selbst. 
Dabei gab es immer wieder Verände¬ 
rungen im Sprachumfang und in den 
Systemeigenschaften, so daß man 
unter Logo inzwischen eine ganze 
Sprachfamilie verstehen muß. 

Seymour Papert stellt seine Arbeit auf 
dem Gebiet der Künstlichen Intelligenz 
unter folgende These: Der Computer 
sei vor allem ein Instrument, das Den¬ 
ken und Lernen verändert. Damit bietet 
der Computer dem Menschen die 
Chance, seine Denkweise und den 
Lernstil zu verbessern. Eine solche Ver¬ 
besserung der Denkweise würde 
erreicht, wenn der Lernende am Com¬ 
puter aktiv arbeiten und durch das 
Experimentieren mit Programmen 
seine Ideen mathematisch formuliert 
und ausprobiert. Man nennt diese Form 
zu Lernen »learning by doing« - Lernen, 
indem man es tut. Die Zielsetzung von 
Seymour Papert erforderte eine 
Mensch-Maschine-Schnittstelle (für 
komfortable Ein-/Ausgabe), die ganz 
auf Dialog von Mensch und Computer 
ausgerichtet ist. Denn zum Lernen ist 
es wichtig, daß die Formulierung der 
Probleme, daß das Programmieren 
leicht geht. Genauso wichtig ist eine 

















schnelle Reaktion des Computers, der 
anzeigt, ob man richtig oder falsch 
gedacht (getippt) hat. Paperts erste 
Unterrichtsversuche wurden mit klei¬ 
nen Gruppen von 8- bis 18-jährigen 
Schülern durchgeführt. Er wählte einen 
ganz einfachen Roboter-Grundtyp aus, 
der zeichnen kann: eine Schildkröte 
(engl, turtle). Die Schildkröte ermög¬ 
licht auf anschauliche Weise eine com¬ 
putergerechte Formulierung mathema¬ 
tischer Fragen. Wie das in Logo aus¬ 
sieht, zeigen wir gleich. 

Die Erfahrungen mit menschlichem 
Lernen gingen über viele Jahre und 
führten zu immer neuen Versionen von 
Logo, das damit zur universellen Spra¬ 
che wurde. Vorbild für diese Spracher- 
weiterungen war Lisp, da sie in der Kl- 
Forschung das am häufigsten verwen¬ 
dete Handwerkszeug war. Logo ist - bis 
auf die Turtle-Gafik - eine einge¬ 
schränkte Lisp-Version. Die Schildkröte 
in der Sprache Logo ist jedoch ohne 
Vorbild. Sie wurde inzwischen auch von 
anderen Sprachen (in UCSD-Pascal 
oder im Smalltalk-System) übernom¬ 
men. 

Soweit zur Geschichte von Logo. 
Durch die Anwendung in Grundschulen 
bis hin zur Universitätsausbildung ist 
Logo zu einer vielfältig einsetzbaren 
Sprache geworden, die immer auf den 
Lernenden ausgerichtet ist. Für alle 
Altersstufen ist der Einstieg in das Pro¬ 
grammieren mit Logo ganz leicht. Trotz¬ 
dem ist Logo auch für sehr komplexe 
Probleme geeignet. Logo ist damit die 
ideale Sprache für Personal Computing. 
Der Anwender kann relativ problemlos 
selbst programmieren, mit sehr ver¬ 
schiedenartigen Anwendungen experi¬ 
mentieren und schließlich auch einmal 
seine Kinder an den Computer lassen. 

Die Schildkröte wird mit den Befehlen 
FORWARD ... gehe vorwärts um ... 
Schritte 

RIGHT... drehe Dich um... Grad nach 
rechts 

bewegt. Dabei zeichnet der Mini- 
Roboter seinen Weg mit einem Stift auf. 
Für jüngere Kinder ist eine mechani¬ 
sche Schildkröte, die vom Computer 
angesteuert wird und sich auf dem Fuß¬ 
boden bewegt, besonders anschau¬ 
lich. Viel schneller erhält man jedoch 
die Resultate seiner Arbeit, wenn man 
die Befehle an eine »mockturtle« auf 
dem Bildschirm des Rechners gibt. 

So lautet der Befehl, wenn ein Strich 
der Länge 50 gezeichnet werden soll: 
FORWARD 50 

Mit der Eingabe 
REPEAT 4 (FORWARD 50 RIGHT 90) 
erzeugt man ein Quadrat der Seiten¬ 
länge 50. (Bild 5) 

Jede Eingabe wird von Logo sofort 
ausgeführt. Zeilen werden als Befehl 
gedeutet. Man kann jedoch auch 


eigene, neue Kommandos definieren, 
um zum Beispiel Quadrate zu zeichnen. 

T0 QUADRAT 

REPEAT 4 (FORWARD 50 RIGHT 90) 

END 

Nun wollen wir die Prozedur ausfüh¬ 
ren. Dazu geben wir einfach das Wort 
QUADRAT ein. 

Jede Zeichenkette wird vom Logo- 
System als Befehl oder als Prozedur 
interpretiert. Variablennamen (die 
Namen von Platzhaltern wie zum Bei¬ 
spiel »:L«, »:R«) beginnen mit einem 
Doppelpunkt. Will man die Prozedur 
QUADRAT so verallgemeinern, daß die 
Seitenlänge beliebig ist, dann ersetzt 
man die Längenangabe »50« einfach 
durch die Variable »:L« und fügt die Ein¬ 
gabevariable L im Kopf der Prozedur 
ein: 

T0 QUADRAT :L 

REPEAT 4 (FORWARD :L RIGHT 90) 

END 

Solch eine Prozedur kann wie ein 
Grundbefehl verwendet werden. Las¬ 
sen wir nun 18 (REPEAT 18) Quadrate 
zeichnen. Nach jedem fertig gezeich¬ 
neten Viereck dreht die Schildkröte 
sich um 20 Grad nach rechts (RIGHT 
20 ). 

REPEAT 18 (QUADRAT 50 RIGHT 20) 

So entsteht die Folge von Quadraten 
in Bild 6. 

Die Steuerstruktur, die in Logo zur 
Verfügung steht, ist die Rekursion. Sie 
kann in den einfachsten Fällen auch von 
Kindern in ganz natürlicher Weise ver¬ 
wendet werden. Wenn man beispiels¬ 
weise Bild 7 von der Schildkröte zeich¬ 
nen läßt, so muß man eine Prozedur 
definieren, in der die Seitenlänge bei 
jedem Viereck größer wird. 

T0 QUADRATSPIRALE :L 
QUADRAT :L 
RIGHT 20 

QUADRATSPIRALE :L+5 
END 

Diese Prozedur wird durch den Aufruf 

QUADRATSPIRALE 5 

ausgeführt. Nachdem das Quadrat ein¬ 
mal gezeichnet ist, ändert sich die 
Länge L (L+5) und die Schildkröte 
dreht sich um 20 Grad. Dann wird die 
Prozedur erneut gestartet. Da wir nicht 
angegeben haben, wann die Prozedur 
abbrechen soll, geht dieser Vorgang 
immmer weiter - solange bis durch 
Tastendruck unterbrochen wird. 

Nun soll zum Abschluß ein Begriff aus 
der Informatik - ein binärer Baum - pro¬ 
grammiert werden. An diesem Beispiel 
zeigen sich die Möglichkeiten eines 
rekursiven Programmaufbaus. Der in 
Bild 8 gezeigte binäre Baum soll von der 
Schildkröte gezeichnet werden. 

Die Prozedur nutzt dabei das Aufbau¬ 
prinzip des Baumes aus: 

T0 BAUM :L 

IF:L ( 4 THEN STOP 




FORWARD :L 
LEFT 45 
BAUM :L/2 
RIGHT 90 
BAUM :L/2 
LEFT 45 
BACK :L 
END 

Rufen wir die Prozedur auf: 

BAUM 64 

Die BAUM-Prozedur besitzt wieder 
ein Argument, nämlich :L. :L hat nach 
dem Aufruf den Wert 64. Mit der IF- 
Abfrage wird festgelegt, daß die 
Berechnung abbricht, wenn :L kleiner 
wird als 4. Die Befehle LEFT (links) und 
BACK (zurück) tun das, was sie sagen. 
Die Prozedur haben wir mit dem Wert 
64 aufgerufen. Die IF-Abfrage wird 
übersprungen, weil :L zu groß ist. Die 
Turtle geht dann (wegen FORWARD :L) 
64 Schritte geradeaus und dreht sich 
um 45 Grad nach links (LEFT 45). Dann 
folgt ein rekursiver Aufruf. Die Prozedur 
BAUM wird mit einem neuen Wert (:L/2 
- hier sind das 32) aufgerufen (BAUM 
:L/2) - jetzt wird die Prozedur wieder 
von vorne bearbeitet. Die Schildkröte 
geht :L, also 32 Schritte geradeaus, 
dreht sich um 45 Grad nach links und 
schon folgt der nächste rekursive Auf¬ 
ruf von Baum. Diesmal hat :L den Wert 
16 (:L/2) - diese verschachtelten 
Prozeduraufrufe werden solange 
erzeugt, bis :L kleiner ist als 4, dann ist 
Schluß (STOP) mit diesem Zweig und 
das allerlinkeste Ästchen ist gemalt. Auf 
der nächsthöheren Ebene von Proze¬ 
duraufrufen geht es weiter. Wenn 
schließlich der gesamte linke Ast des 
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Baums steht, dann dreht sich die 
Schildkröte um 90 Grad nach rechts 
(RIGHT 90) und beginnt mit dem rech¬ 
ten Teil. Und wieder wird BAUM rekursiv 
aufgerufen. 

Prolog ist die »Kl-Sprache der Japa¬ 
ner« und dient zur Entwicklung von 
Expertensystemen. Die Probleme der 
Künstlichen Intelligenz können mit 
den bisherigen Programmiermethoden 
nicht mehr gelöst werden. Man braucht 
geeignete Methoden, um die Dinge der 
realen Welt (beispielsweise Personen, 
Gegenstände, Gesetzmäßigkeiten, Zu¬ 
sammenhänge) auf dem Computer 
darzustellen. Der Computer soll ja die 
Realität kennenlernen, denn nur wenn 
er über die Welt, in der die Menschen 
leben, Bescheid weiß, kann er »intelli¬ 
gent« agieren. Ein solcher Computer 
»weiß« zum Beispiel: 

»Bäume sind Pflanzen.« 

»Bäume sind grün.« 

Damit hat er Informationen über 
Dinge, nämlich Bäume. 

»Menschen brauchen Nahrung, weil sie 
sonst verhungern.« 

»Autos fahren nur, wenn sie genug Ben¬ 
zin im Tank haben.« 

Diese Gesetzmäßigkeiten muß man 
auch als Computer einfach kennen. 
»Boris Becker ist ein bekannter Tennis¬ 
spieler. Daher berichten die Zeitungen 
oft über ihn.« 

Diese Information sagt etwas über 
eine Person (Boris Becker) aus und 
klärt zusätzlich einen Zusammenhang 
(weil er berühmt ist, schreibt man über 
ihn). 


So wie eben beschrieben, kann Wis¬ 
sen über die reale Welt aussehen. Nun 
braucht man geeignete Methoden, um 
dieses Wissen auf einem Computer 
darzustellen. Daher wurden Konzepte 
entwickelt, mit denen diese komplexen 
Aufgaben zu lösen sind. Der Aufbau von 
Programmen mußte neu durchdacht 
werden. Ein herkömmliches Programm 
besteht aus den Computeroperationen 
auf der einen Seite. Auf der anderen 
Seite stehen die Eingabedaten, mit 
denen das Programm arbeitet. Kl- 
Programme arbeiten nicht mehr mit 
Zahlen, sondern mit Informationen in 
Form von Regeln. Diese Regeln werden 
wie die Eingabedaten in anderen Pro¬ 
grammen außerhalb des Programms in 
einer Datei zusammengefaßt. Eine 
Regel könnte so aussehen: IF das Auto 
hat genug Benzin imTankTHEN es fährt. 

Diese IF-THEN-Form gibt es in Basic 
auch. In unserer Regel haben wir aber 
keinen Befehl, der sagt, was der Com¬ 
puter tun soll! Die Regel sagt nur aus, 
wie ein Auto reagiert, wenn es genug 
Benzin im Tank hat. 

In einem Basic-Programm würde man 
im Programm den Befehl 
IF Benzin > 0 THEN GOTO Autofährt 
schreiben. In einem Kl-Programm wer¬ 
den solche Informationen aus dem Pro¬ 
gramm herausgezogen und in einer 
eigenen Datei abgelegt. 

Prolog wurde etwa 1970 in Marseille 
entwickelt. Ähnlich wie Lisp, die wohl 
bekannteste Sprache der Künstlichen 
Intelligenz, unterscheidet sich Prolog 
grundlegend von herkömmlichen Pro¬ 
grammiersprachen wie Basic und Pas¬ 
cal. Prolog ist - ebenso wie Lisp - eine 
interaktive Sprache. Die Entwicklung 
und Ausführung von Prolog-Program¬ 
men erfolgt im Dialog mit dem Compu¬ 
ter. Das Konzept der Sprache ist radikal 
neu. Der Programmierer braucht sich 
nicht mehr um Algorithmen zur Lösung 
seines Problems zu kümmern, sondern 
muß genau angeben, worin sein Pro¬ 
blem besteht. 

In herkömmlichen Programmierspra¬ 
chen (Pascal, Basic, Fortran) bestimmt 
der Programmentwickler die Reihen¬ 
folge der Computeroperationen. Er legt 
sie nämlich mit den Programmbefehlen 
fest. In Prolog-Programmen wird nicht 
mehr das »wie« spezifiziert, sondern 
das »was«. Prolog besitzt keine Sprach- 
elemente, die festlegen, in welcher Rei¬ 
henfolge der Computer die Program¬ 
moperationen ausführen soll. Solche 
Anweisungen sind zum Beispiel 
IF/THEN, ELSE, FOR, WHILE und 
GOTO. Mit solchen Kontrollbefehlen 
sagen wir dem Computer »mache zu¬ 
erst das, dann mache das«. Ein Prolog¬ 
programm dagegen gleicht mehr einer 
ungeordneten Ansammlung von Wis¬ 
sen. Mit einfachen Wenn-Dann-Befeh- 


len und mit Fakten werden Sachver¬ 
halte beschrieben. Dem Computer wird 
so gesagt, was er über seine »Welt« 
wissen muß. Man nennt solche Pro¬ 
grammiersprachen, die dem Computer 
vorschreiben, in welcher Reihenfolge 
er eine Folge von Problemen bearbei¬ 
ten soll, »algorithmisch«. In nichtalgo¬ 
rithmischen Sprachen wie zum Beispiel 
Prolog beschreibt ein Programm nur 
das Problem selbst. Man teilt dem Com¬ 
puter wahre Fakten (Tatsachen) über 
ein Problem mit und sagt ihm, wie er sie 
zu interpretieren hat. Jeder, der lange in 
Basic (oder anderen algorithmischen 
Sprachen wie Pascal oder Fortran) pro¬ 
grammiert hat, wird anfangs große 
Schwierigkeiten haben, sich auf die 
neue Programmierweise in Prolog ein¬ 
zustellen, weil er noch »in Basic denkt«. 

Wer Prolog lernen und in dieser Spra¬ 
che Programme entwickeln will, sollte 
sich das Standardwerk von Clocksin 
und Mellish ansehen. In diesem Buch 
wurde 1981 das Kern-Prolog definiert 
und dieser sogenannte »Edinburgh«- 
Standard liegt allen heutigen Prolog- 
Implementationen zugrunde. 

Und nun soll endlich ein ganz einfa¬ 
ches Beispiel zeigen, wie solche Fak¬ 
ten (in Tabelle 1 wird der Begriff »Fak¬ 
ten« erklärt) in Prolog aussehen kön¬ 
nen. Wir geben ein: »Ein Hund ist ein 
Tier.« »Eine Katze ist ein Tier.« und »Eine 
Kuh ist ein Tier.« 
tier(hund). 
tier(katze). 
tier(kuh). 

Der Punkt hinter jeder Zeile ist wich¬ 
tig! Prolog erkennt daran das Ende 
einer Eingabe. 

Nehmen wir an, unser Prolog-Pro¬ 
gramm »wüßte« nur diese drei Fakten, 
die wir ihm eingegeben haben. Wir fra¬ 
gen nun das Programm nach dem, was 
es weiß: 

»Ist ein Hund ein Tier?«. 

?- tier(hund). 

Das Prologsystem antwortet mit: 

yes. 

»Ist ein Wolf ein Tier?« 

t- tier(wolf). 
no. 

Auf die letzte Anfrage kann Prolog nur 
mit »no« antworten, da dem System ja 
noch nicht bekannt ist, daß der Wolf 
auch ein Tier ist. Ein »no« ist in diesem 
Sinne immer als ein »ich weiß es (noch) 
nicht« zu verstehen. 

So läuft in etwa eine Prolog-Session 
ab. Eine Menge von Fakten und Regeln 
wird eingegeben, wie wir es in unserem 
Beispiel in ganz kleinem Rahmen getan 
haben. Die Regeln und Fakten können 
auch als Sätze (wie ein Basic-Pro¬ 
gramm) von einer Datei geladen wer¬ 
den. Danach kann der Benutzer Fragen 
an das System stellen, auf die Prolog im 
einfachsten Fall mit »yes« oder »no« 
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antwortet. Dies ist natürlich noch keine 
anspruchsvolle Anwendung von Pro¬ 
log. Die Fähigkeiten von Prolog sind 
sehr viel umfassender, als hier gezeigt 
werden kann. 

Prolog wird vor allem dort eingesetzt, 
wo Symbole verarbeitet werden. Für 
numerische Datenverarbeitung, also 
Berechnungen und die Verarbeitung 
von Zahlen, wurde diese Sprache nicht 
entworfen. Typische Anwendungen 
von Prolog sind: 

- der Aufbau von Wissensbasen für 
Expertensysteme oder intelligente 
Datenbanksysteme 

- Verarbeitung natürlicher Sprache; sie 
umfaßt das Erkennen natürlicher 
Sprache und die Gesprächsführung 
durch das Programm 

- Bilderkennung und -Verarbeitung 
(Szenenanalyse) 

- der Entwurf kompletter Experten¬ 
systeme 

- die schnelle Entwicklung von Proto¬ 
typen für Programme 

Bisher haben wir schon gesehen, 
welches Problem die Kl-Methoden vor 
allem bestimmt: 

»Wie wird Wissen dargestellt und ver¬ 
arbeitet?« 

Verschiedene Darstellungsweisen 
wurden entwickelt, die je nach Art und 
Struktur des Wissens ihre besonderen 
Vorzüge haben. Die wichtigsten Metho¬ 
den der Kl zur Wissensrepräsentation 
werden später kurz vorgestellt. 

Das sogenannte vage Wissen ist 
besonders schwer darzustellen. 
»Vages« Wissen nennt man die Informa¬ 
tionen, von denen man nicht mit 
lOOprozentiger, sondern nur mit einer 
gewissen Sicherheit weiß, daß sie stim¬ 
men. Man wirft zum Beispiel eine 
Münze und weiß: 

Mit 50prozentiger Wahrscheinlich¬ 
keit werfe ich Kopf. Aber genauso wahr¬ 
scheinlich ist es, daß eine Zahl gewor¬ 
fen wird. Expertensysteme zeichnen 
sich unter anderem dadurch aus, daß 
sie auf solch »vagem« Wissen arbeiten. 
Daher ist es wichtig, eine Darstellungs- 
fom dafür zu finden. 

Die wichtigsten Formalismen, um 
Wissen darzustellen, sind Regeln (IF ... 
THEN ...), Frames (Rahmen), Logik (wie 
in Prolog realisiert) und Netze. 

Regeln 

Die regelbasierten Ansätze findet man 
häufig in Produktionssystemen. Sie 
sind stärker darauf ausgerichtet, das 
Wissen zu formalisieren, das zur 
Schlußfolgerung benötigt wird. 

Wissensquellen, die als Wenn-Dann- 
Regeln formuliert sind, gehen entweder 
davon aus, daß bestimmte Vorbedin¬ 
gungen erfüllt sein müssen, damit die 
entsprechenden Regeln »feuern« kön¬ 
nen. Oder sie beschreiben, welche 
Ziele erreicht werden sollen und legen 


fest, welche Teilziele als Vorbedingung 
erreicht sein müssen. 

Diese Art von Regelbasen kann auf 
zwei Arten durchsucht werden: rück¬ 
wärtsverkettend das heißt vom Ziel zu 
den Prämissen hin, oder vorwärtsver¬ 
kettend. 

Die datengesteuerte, vorwärtsverket- 
.tende Schlußweise wird durch die 
Sprachfamilie OPS realisiert. Diese wird 
speziell zur Erstellung von Experten¬ 
systemen seit etwa zehn Jahren an der 
Carnegie-Mellon-Universität in Zusam¬ 
menarbeit mit DEC entwickelt. 

Frames (Rahmen) 

sind sehr gut geeignet, um hierarchi¬ 
sche Strukturen darzustellen. Man 


Begriffe der Sprache Prolog 

Fakten sind Tatsachen über 
Objekte und ihre Beziehungen 
zueinander. Namen von Gegenstän¬ 
den, Personen und so weiter (Petra, 
Prolog) werden in Fakten kleinge¬ 
schrieben. Die Beziehung oder die 
Aussage über Objekte steht vor der 
Klammer (sind, kennt). Geben wir 
zum Beispiel folgende Fakten über 
Prolog und Computerfans ein: 
pr_sprache(prolog). 

»Prolog ist eine Programmierspra¬ 
che.« 

kennt(petra,logo). 

»Petra kennt Logo.« 
kennt(petra arnd). 
sind(arnd,petra,c_fans). 

»Arnd und Petra sind Computer¬ 
fans.« 

Fragen sehen genauso aus wie 
Fakten, vor die »?-« gesetzt wurde. 
Wenn man eine Frage an Prolog 
stellt, durchsucht das System die 
Datenbank, die alle bekannten Fak¬ 
ten enthält. Prolog sucht ein Fakt, 
das der Frage entspricht. Existiert 
ein solches Fakt, dann antwortet 
Prolog auf die Frage des Benutzers 
mit »yes«, sonst mit »no«. Beispiel: 

?-kennt(dr_bobo,indiana_j oe). 
no 

»Kennt Dr. Bobo (den Hacker) In¬ 
diana Joe?« Prolog weiß nur das, was 
wir ihm oben eingegeben haben und 
sagt: Nein. 

?-kennt(petra,logo). 
yes 

»Kennt Petra Logo?« Prolog sagt: Ja. 

Variablen (Platzhalter) verwendet 
man in Fragen, um (alles) zu erfah¬ 
ren, was das Prologsystem über ein 
bestimmtes Objekt weiß. Variablen 
beginnen mit einem Großbuchsta¬ 
ben. Eine solche Variable heißt zum 
Beispiel »X« oder »Diesisteinbeliebi- 
gervariablenname«. Nehmen wir die 
Variable X (X bezeichnet das, was 
Petra kennt). Nun fragen wir das Pro¬ 
logsystem, was Petra alles kennt: 


kann sich Frames wie Setzkästen vor¬ 
stellen. In den einzelnen Fächern ste¬ 
hen die Werte von Eigenschaften, Hin¬ 
weise auf Beziehungen und Hinweise 
auf übergeordnete und nachgeordnete 
Strukturen. Aber in den Fächern kön¬ 
nen außer Fakten auch Handlungsan¬ 
weisungen stehen, die beispielsweise 
angeben, wie bisher noch unbekannte 
Eigenschaftswerte zu beschaffen sind. 

In der Mathematik war die Logik 
schon bei den alten Griechen eine 
Methode zur Darstellung von Wissen. In 
der Philosophie wurde sie eingesetzt, 
um Sätze zu formulieren und aus 
bestimmten Prämissen streng logische 
Schlußfolgerungen zu ziehen. Wohl 


?-kennt(petra,X). 

X=logo 

ist die Antwort. Gibt man nach dieser 
ersten Antwort ein »;« (das logische 
»oder«) ein, so sucht das Prologsy¬ 
stem nach weiteren Objekten. Die 
nächste Antwort ist dann 
X=arnd 

Geben wir einfach »return« ein, 
wird die Suche beendet. 

Wenn Prolog qine Frage gestellt 
wird, die eine Variable enthält, 
durchsucht das Prologsystem alle 
seine Fakten nach einem Objekt, 
das die Variable ersetzen kann. 

Konjugationen sind Verknüpfun¬ 
gen durch ein logisches »und«. Sie 
werden verwendet, wenn Fragen 
über kompliziertere Beziehungen 
zwischen Objekten gestellt werden. 
Beispiel: 

»Wer kennt Logo und Prolog?« 

In Prolog heißt das: 

?-kennt(X,logo),kennt(X,prolog). 

Die Variable X steht für die Person, 
die wir suchen. Das »,« (=und) ver¬ 
knüpft die beiden Teile (Wer kennt 
Prolog? Wer kennt Logo?) der Frage. 
In unserer kleinen Beispieldaten¬ 
bank finden wir leider niemanden, 
der beide Sprachen kennt. Aber auf 
die Frage 

»Wer kennt Arnd und (die Program¬ 
miersprache) Logo?«: 

?-kennt(X,arnd),kennt(X,logo). 
findet Prolog in unserem kleinen Bei¬ 
spiel die Antwort: 

X=petra 

Regeln braucht man, wenn eine 
Tatsache für mehr als einen Fall gel¬ 
ten soll. Beispiel: 

Wir wissen, daß Dr. Bobo das C 64- 
Spiel Summer Games kennt. Aber er 
kennt auch alle anderen Computer¬ 
spiele, die auf dem C64 laufen. Das 
heißt in Prolog: 

»Wenn ein Spiel auf dem C64 läuft, 
dann kennt Dr. Bobo es ganz sicher.« 

läuft(Spiel,c-64):-kennt 
(dr_bobo,Spiel). 












jedem ist aus der Schule der folgende 
Schluß aus zwei Prämissen bekannt: 
Prämisse 1: Sokrates ist ein Mensch. 
Prämisse 2: Menschen sind sterblich. 
Schluß: Sokrates ist sterblich. 

Die Wissensdarstellung durch Logik 
war eine der ersten Repräsentations¬ 
formen in der Kl. In diesem Formalismus 
werden Aussagen so dargestellt, daß 
ihre Gültigkeit formal überprüft werden 
kann. Behauptungen (»Sokrates ist ein 
Mensch«) und die Beziehungen zwi¬ 
schen ihnen werden beschrieben. Mit 
den Methoden der Logik kann man aus 
den bereits bekannten Tatsachen 
(»Sokrates ist ein Mensch« UND »Men¬ 
schen sind sterblich«) schlußfolgern, 


»Daraus folgt« wird in Prolog durch 
»:-« bezeichnet. 

Eine kompliziertere Regel ist die 
folgende: »(x’*y+x*y’) ist eine 
Ableitung von x*y, wenn x’ Ableitung 
von x ist und y’ Ableitung von y.« Die 
entsprechende Prolog-Regel ist 
ableitung(X* Y,X1 * Y+Y1 * X):- 

ableitung(X,X1),ableitung(Y,Y1). 

Aus solchen Regeln und den oben 
beschriebenen Fakten besteht ein 
Prolog-Programm. 

Backtracking ist eine Besonder¬ 
heit von Prolog. Backtracking 
bedeutet »Zurückgehen und einen 
neuen Lösungsweg suchen«. Da ein 
Prologprogramm aus vielen Regeln 
besteht, kann es mehrere Möglich¬ 
keiten geben, für eine Variable einen 
Wert zu finden. So landet das Pro¬ 
logsystem auf der Suche nach einer 
Lösung möglicherweise in einer 
Sackgasse. Prolog erkennt solche 
Sackgassen und kann sie wieder 
verlassen, indem der bisher gefun¬ 
dene Lösungsweg bis zur letzten 
Alternative rückgängig gemacht 
wird. Nun wird eine andere Möglich¬ 
keit ausprobiert. Ist auch diese nicht 
erfolgreich, dann geht es weiter zur 
nächsten Alternative, bis die Lösung 
gefunden ist. 

Ein* und Ausgabe sind nützlich, 
wenn das Programm eine »Unterhal¬ 
tung« mit dem Benutzer selbst 
beginnen soll. Haben wir zum Bei¬ 
spiel eine Datenbank programmiert, 
so muß der Computer den Benutzer 
bei jedem Schritt fragen, was als 
nächstes zu tun ist. 

Der Befehl put druckt das Zei¬ 
chen, dessen ASCII-Code in Klam¬ 
mern angegeben wurde. Aus »104« 
wird ein »h«, »101« wird zu »e«, »108« 
zu »I«... 

?-put(104),put(101),put(108), 
put(108),put(lll). 

hello 

ist das Ergebnis des Prologsystems. 


ob neue Behauptungen ebenfalls wahr 
sind (»Sokrates ist sterblich.«) 

Die semantischen Netze kann man 
als eine Erweiterung dieser Listen-Dar- 
stellung auffassen. Durch solche Netze 
lassen sich den einzelnen Objekten 
Eigenschaften zuordnen, zum Beispiel 
»Ein Auto hat eine Marke, zum Beispiel 
VW - es besitzt also die Eigenschaft 
Marke«. 

Diese Eigenschaft kann wiederum 
Werte haben, nämlich bestimmte Typen 
(VW 1200, VW 1300, usw.). Zusätzlich 
kann man aber auch die Eigenschaften 
näher beschreiben: 

»Die Farbe des Apfels ist im Frühsom¬ 
mer grün, im Herbst aber rot.« 

Darüber hinaus kann man in semanti¬ 
schen Netzen auch Beziehungen zwi¬ 
schen Objekten, Begriffen, Handlun¬ 
gen und anderem ausdrücken: 

»Ein Auto besteht aus Fahrgestell, 
Karosserie, Sitzen, Motor... Der Motor 
wiederum besteht aus Kolben,...« 

Dieses letzte Beispiel zeigt noch 
etwas: Im menschlichen Bewußtsein 
sind Autos, Sitze und andere Objekte, 
Begriffe und Konzepte keine einzelnen 
Einheiten, die einfach gesammelt wer¬ 
den. Menschen strukturieren ihr Wis¬ 
sen. Diese Einheiten sind kategorisiert 
oder in übergeordneten Einheiten 
zusammengefaßt. Ein Auto hat Sitze 
und der Motor ist zusammengesetzt 
aus Kolben und anderem. 

Das Verhältnis von einem zusammen¬ 
gesetzten Gegenstand und seinen Ein¬ 
zelteilen wird durch eine »Teil-von«- 
Beziehung ausgedrückt: 

Eine Ist-Beziehung stellt die Zugehö¬ 
rigkeit zu einer Art dar: 

»Ich fahre einen Käfer. Ein Käfer ist ein 
Auto. Ein Auto ist ein Fahrzeug.« 

Solche Zusammengehörigkeiten las¬ 
sen sich nicht nur einfach ausdrücken. 
Sie können auch ausgewertet werden, 
um Eigenschaften und Beziehungen 
zwischen einer Klasse auf ihre Spezies 
zu vererben. 

»Obst reift. Beim Reifen ändert sich oft 
die Farbe. Apfel ist Obst. 

Also reift ein Apfel und ändert dabei nor¬ 
malerweise seine Farbe.« 

Dargestellt werden diese Zusammen¬ 
hänge, wie der Name Netz schon sagt, 
als eine Folge von Knoten und Kanten. 
Durch Knoten werden üblicherweise 
die Objekte, Konzepte oder Situationen 
in einem Wissensbereich repräsentiert. 
Hier wären das: Auto, Kolben, Karosse¬ 
rie. Die Kanten stellen die Beziehungen 
zwischen ihnen dar. (Ein Auto hat einen 
Motor.) 

Systeme aus semantischen Netzen 
wurden zunächst entwickelt, um psy¬ 
chologische Modelle darzustellen. Das 
allgemeine Ziel war es, eine Methode 
zur Verfügung zu haben, die zur Dar¬ 
stellung der verschiedenen Wissens¬ 


typen in Programmsystemen geeignet 
ist. Dann entstanden spezielle semanti¬ 
sche Netze, die besonders zur Sprach¬ 
erkennung und Spracherzeugung ein¬ 
gesetzt werden und sich überall dort, 
wo mit natürlicher Sprach-Ein-/Ausgabe 
gearbeitet wird, sehr bewährt haben. 
Sie sind eine sehr weit verbreitete 
Repräsentationsart von Wissen im Be¬ 
reich der Kl-Programmierung. 
Metaregeln 

Nachdem das Wissen dargestellt 
wurde, wird es nun angewendet. Mit 
bestimmten Methoden kann man aus 
schon Bekanntem auf Neues »schlie¬ 
ßen«. Die Methoden, die dabei ange¬ 
wandt werden, die Schlußfolgerungs¬ 
methoden, sind ebenfalls eine Art von 
Wissen auf einer höheren Ebene, sozu¬ 
sagen Metaregeln. Das Wissen dar¬ 
über, wie man Wissen anwendet (Meta¬ 
wissen), wird in modernen Kl-Systemen 
genauso in Netzen oder Produktionen 
dargestellt wie das Problemwissen 
selbst. Das ist eine Schwierigkeit beim 
Aufbau der Wissensbasis: Nicht nur die 
Fakten und Gesetzmäßigkeiten des 
Problembereichs müssen gesammelt, 
formalisiert und dargestellt werden. 
Auch die Informationen darüber, wie in 
dem Bereich Probleme gelöst werden - 
das Wissen über die Methodik des Pro¬ 
blemlösens - muß erfaßt werden. Und 
dies macht manchmal den schwierig¬ 
sten Teil der Arbeit aus. Nehmen wir das 
Beispiel Automatisches Beweisen - 
eins der ersten Probleme der Kl. Das 
Wissen sind die Gesetze der Logik. 
Diese zusammenzufassen, ist kein Pro¬ 
blem. Man muß nur ein entsprechendes 
Mathematiklehrbuch aufschlagen und 
hat sie schon gesammelt vorliegen. 
Aber wie beweist man nun einen mathe¬ 
matischen Satz aufgrund dieser logi¬ 
schen Gesetze? Die Strategien, nach 
denen man den Beweis für einen mathe¬ 
matischen Satz suchen soll - also das 
Metawissen für dieses Problem - sind 
noch zu wenig bekannt. 

Die Kl-Fbrschung steht also noch 
ziemlich am Anfang, solange so grund¬ 
legende Probleme nicht gelöst sind. 
Aber die Entwicklung schreitet schnell 
voran, und wer weiß - vielleicht sitze ich 
1991 wirklich vor einem Modell mit 
Namen Com-Pu-Ta, made in Japan... 

(cg) 
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Ada, Basic, Cobol — ein ABC 
für den Programmierer 


W f ie gesagt, inzwischen sind 
Ihnen Sprachen wie Forth 
oder C kein Buch mit sieben 
Siegeln mehr. Vielleicht haben Sie ja 
auch aufgrund unseres Sonderheftes 
die Sprache Ihres Herzens - sprich die¬ 
jenige, die Ihren Verwendungszwecken 
am besten entgegenkommt - bereits 
gefunden. Wir haben hier nun eine 
Marktübersicht zusammengestellt, die 
Ihnen bei der Auswahl Ihrer Program¬ 
miersprache - ob Sie nun einen C 64, 
Atari, Apple, QL oder Schneider besit¬ 
zen - helfen soll. Jeder gängige Com¬ 
putertyp und jede geläufige Program¬ 
miersprache wurde berücksichtigt. 
Außerdem finden Sie in der Aufstellung 
die Angabe der Hardware, ohne die Sie 
mit der jeweiligen Sprache nicht arbei- 


Nach der Lektüre dieses Sonder¬ 
heftes kennen Sie mehr als nur 
Basic. Unsere Übersicht will 
Ihnen die Auswahl der Sprache 
Ihres Geschmacks erleichtern. 

ten können. Für den Geldbeutel fällt 
dieses Kriterium sicherlich ins Gewicht. 

Wer seinen Computer noch nicht zu 
hundert Prozent kennt, dem möchten 
wir raten, einen Blick auf die letzte 
Tabellenspalte zu werfen, die Angaben 
über die mitgelieferten Handbücher 
macht. Denn es ist von großem Vorteil, 
wenn ein Handbuch sowohl umfang¬ 
reich als auch in deutscher Sprache 
verfaßt ist, und nicht nur magere 20 Sei¬ 
ten englisches Fachvokabular bietet. 


Obwohl unsere Marktübersicht einen 
recht opulenten Eindruck macht, 
erhebt sie keinerlei Anspruch auf Voll¬ 
ständigkeit. Das Angebot ist einfach zu 
groß, um voll erfaßt zu werden. 

Die beiden Tabellen mit CP/M-Soft- 
ware beinhalten nur unsere (aus dem 
Hause Markt STechnik) unter CP/M lau¬ 
fenden Programmiersprachen. Die Ab¬ 
kürzungen in der Spalte »Datenträger« 
bedeuten D = Diskette, K = Kassette, 
M = Modul und MD = Microdrive. In der 
Spalte »Handbuch« weist (d) darauf hin, 
daß das Handbuch in Deutsch, (e), daß 
es in Englisch geschrieben ist. Alle 
Daten beruhen auf Angaben der Her¬ 
steller beziehungsweise Anbieter. 

(wg/hi) 


Apple II 

Programmname 

Datenträger/ 
Preis (Mark) 

Art der Sprache 

Hardware-Voraussetzungen 

Bezugs¬ 

quelle 

Hersteller 

Handbuch-Umfang 

Aztec C 

D: 1630,- 

Compiler 

Z80-Karte, 

2 Disketten-Laufwerke 

PAN 

Manx Software 

zirka 300 Seiten (e) 

Aztec C 65 

D: 895,- 

Compiler 

Disketten-Laufwerk 

BRA 

Manx Software 

150 Seiten (e) 

Basic 

implementiert 

Interpreter 

keine 

APP 

Apple 

zirka 60 Seiten (d) 

Basic-0O-Compiler 

D: 1585,- 

Compiler 

Disketten-Laufwerk, 

Z80-Karte, CP/M 

PAN 

Microsoft 

zirka 200 Seiten (e) 

Forth 

D: 79,- 

Compiler 

Disketten-Laufwerk 

HOF 

Hofacker 

zirka 400 Seiten (d) 

Fortran-80 

D: 749,- 

Compiler 

Disketten-Laufwerk, 

Z80-Karte, CP/M 

PAN 

Microsoft 

zirka 500 Seiten (e) 

IWT Logo 

D: 395,- 

Interpreter 

Disketten-Laufwerk, 64 KByte 

PAN 

IWT 

150 Seiten (d) 

Kyan Pascal 

D: 198,- 

Compiler 

Disketten-Laufwerk, 64 KByte 

PAN 

Kyan Software 

106 Seiten (e) 

LisPAS 

D: 298,- 

Interpreter 

Disketten-Laufwerk, 64 KByte 

PAN 

Tommy Software 

36 Seiten (d) 

Logo 

D: 387,- 

Interpreter 

Disketten-Laufwerk, 

80-Zeichen-Karte 

PAN 

Apple 

300 Seiten (e) 

Microsoft Cobol 

D: 2489,- 

Compiler 

Z80-Karte, CP/M, 2 Laufwerke 

PAN 

Microsoft 

zirka 400 Seiten (e) 

Micro-Dynamo 

D: 980,- 

n 

2 Laufwerke 

PAN 

Addison-Wesley 

zirka 200 Seiten (e) 

Micro-Prolog 

D: 435,- 

Interpreter 

Disketten-Laufwerk 

BRA 

Logic Programming 

Ass. 

240 Seiten (e) plus 
Prolog-Buch 

Mulisp/Mustar 

D: 769,- 

Interpreter/ 

Compiler 

Disketten-Laufwerk, 

Z80-Karte, CP/M 

PAN 

Microsoft 

zirka 200 Seiten (e) 

Mumath/Musimp 

D: 959,- 

Compreter 

Disketten-Laüfwerk 

PAN 

Microsoft 

zirka 200 Seiten (e) 

Nevada Basic 

D: 139,- 

Interpreter 

Disketten-Laufwerk, 

64 KByte, CP/M 

PAN 

Eins 

220 Seiten (e) 

Nevada Cobol 

D: 139,- 

Compiler 

Disketten-Laufwerk, 

Z80-Karte, CP/M 

PAN 

Ellis 

zirka 150 Seiten (e) 

Nevada Fortran 

D: 139,- 

Compiler 

Disketten-Laufwerk, 

Z80-Karte, CP/M 

PAN 

Ellis 

174 Seiten (e) 

Nevada Pascal 

D: 139,- 

Compiler 

Disketten-Laufwerk, 

64 KByte, CP/M 

PAN 

Ellis 

184 Seiten (e) 

Nevada Pilot 

D: 139,- 

Compiler 

Disketten-Laufwerk, 

Z80-Karte, CP/M 

PAN 

Ellis 

zirka 150 Seiten (e) 

Pascal 

D: 955,- 

Compiler 

Disketten-Laufwerk 

APP 

Apple 

<d) 

Pascal 

D: 948,- 

p-machine 

Disketten-Laufwerk, 64 KByte 

PAN 

Apple 

zirka 800 Seiten (e) 

Prolog Z 

D: 149,- 

Compiler 

Disketten-Laufwerk, Z80-Karte 

HOF 

Hofacker 

100 Seiten (d) 

Turbo Pascal 

D: 218,- 

Compiler 

Disketten-Laufwerk, 

Z80-Karte, CP/M 

PAN, HEI 

Borland 

300 Seiten (d) 


(*) Simulationssprache 

















Alan 800XL/I30XE 


Programmname 


Assembler-Editor 

Atmas II _ 

Basic XE(*) 


Kyan Macroassem- 
bler, zum Kyan 

Pascal _ 

Kyan Pascal 


Lern Förth _ 

Mac 65 _ 

(*) nur Atari 130 XE 

Atari ST 

Programmnama 


Datenträger/ 
Preis (Mark) 

M: 298,- 


Datenträger/ 
Preis (Mark) 

D: 198,- _ 

D: liegt bei 

D: k.A. _ 

D: 969,- (*) 

D: ca. 60 Pfund 


C-Compiler 
C-Compiler 
(Lattlce-C) 

Fortran 77- 

Compiler _ 

GST-Asaembler 
Ldoo 


Modula-2 
Modula-2 
Pascal Compiler 
PRO Fortran-7 7 
Seka 


D: 149,- 
D: liegt bei 
D: 890,- 


D: 189,- bis 198,- 


ST Pascal _ D: 249,- _ 

UCSD-F-Pascal D: 890,- _ 

(*) Innerhalb des Entwicklungspakets 

Commodore 64 


Programmname 

ADA-Trainingskurs 

Assembler/ _ 

Disassembler 

Assembler/ _ 

Disassembler 

C-Compiler _ 

Fässern _ 

Förth 

Förth 


Forth _ 

Förth _ 

Förth _ 

Macro-Plus _ 

Machine Lightning 

Oxford Pascal 
Oxford Pascal 
Oxford Pascal 

Pascal _ 

Power Assembler 


Datenträger/ 
Preis (Mark) 

D: 198,- 
D: 73,90 
K: 73,90 


D: 298,- 
K: 59,90 


Art der Sprache 

Compiler _ 

Assembler _ 

Assembler _ 

Interpreter 

Interpreter 

Compiler _ 

Assembler 


Compiler 

Compiler 

Assembler 


Art der Sprache 


Interpreter 

Interpreter 

Compiler 

Compiler 

Compiler 

Compiler 

Compiler 


Interpreter 

Compiler 

Compiler 

Compiler 

Compiler 

Assembler 

Compiler 

Compiler 


Art der Sprache 


D: 159,90, 

K: 119,90 _ 

D: 197,90 _ 

D: 198,- _ 

D: 199,-, K: 79,90 

D: 99,- _ 

D: 99,- 


Compiler 


Compiler 

Assembler 

Compiler 

Compiler 


Compreter 

Compiler 

Compiler 


Compiler 

Compiler 

Compiler 

Compiler 

Assembler 

Assembler 

Compiler 


Hardware-Voraussetzungen 


Disketten-Laufwerk 
128 KByte RAM 


Disketten-Laufwerk 
Disketten-Laufwerk 


Disketten-Laufwerk, 
32 KByte RAM 
Disketten-Laufwerk 
keine 


Hardware-Voraussetzungen 


Bezugs- Hersteller 

quelle _ 

COM OSS _ 

COM _ Atari _ 

COM PFP _ 

COM OSS 

COM OSS 

HOF _ Elcomp _ 

COM Kyan Software 


Kyan Software 

Hofacker/Elcomp 

OSS 


Bezugs- Hersteller 
quelle 


Hardware-Voraussetzungen 


Disketten-Laufwerk 

Disketten-Laufwerk 

Datasette _ 

r^Uetten-Laufwerk 


Disketten-Laufwerk 

Datasette _ 

Datasette _ 

Disketten-Laufwerk 


Disketten-Laufwerk 


Disketten-Laufwerk _ 

Disketten-Laufwerk, Datasette 

Disketten-Laufwerk _ 

Disketten-Laufwerk _ 

Disketten-Laufwerk, Datasette 

Disketten-Laufwerk _ 

Disketten-Laufwerk _ 

Disketten-Laufwerk _ 

Disketten-Laufwerk 


Digital Research 
Metacomco 
Digital Research 

GST _ 

GST _ 

Metacomco 

Prospero 


Digital Research 

Focus _ 

TDI Software 


PRI, HIB KUMA _ 

ATA, HIB CCD-Meyfeldt 


Bezugs- Hersteller 

quelle _ 

DAB _ Data Becker 

PRO Profisoft 


Data Becker _ 

Statesoft/Merlin Softw. 

k.A. _ 

Elcomp 


Data Becker 


DRE _ Limbic Systems 

PRO _ Limbic Systems 

PRI, RUS Limbic Systems 

DAB _ Data Becker 

PRI _ kA_ 

DAB _ Data Becker 

DAB Data Becker 


Handbuch-Umfang 

(e; d in Vorbereitung) 
zirka 80 Seiten (e) 
zirka 50 Seiten (d) 
zirka 200 Seiten (e) 
(d in Vorbereitung) 
zirka 300 Seiten (e) 
(d in Vorbereitung) 
zirka 400 Seiten (d) 
zirka 200 Seiten (e) 
(d in Vorbereitung) 

zirka 100 Seiten (e) 
(d In Vorbereitung) 
400 Seiten (d) 

(e; d in Vorbereitung) 


Handbuch-Umfang 


300 Seiten (d) 

k.A. _ 

zirka 500 Seiten 

(d und e) _ 

150 Seiten (e) 

141 Seiten (e) 
k.A. 


180 Seiten (e) 
60 Selten (d) 
190 Seiten (e) 
150 Seiten (e) 
k.A. _ 

Je)_ 

Jd)_ 

52 Seiten (d) 

Je) _ 


Handbuch-Umfang 

115 Seiten (d) 

15 Seiten (d) 

15 Seiten (d) 

273 Seiten (d) 

22 Seiten (e) 

Je)_ 

zirka 400 Seiten (d) 


80 Selten (d) 

50 Seiten (e) _ 

64 Seiten (e) _ 

Je)_ 

160 Seiten (e) 

100 Selten (e) 

86 Seiten (e) 

Jd)_ 

77 Seiten (d) 

Jd)_ 

40 Seiten (d) 

325 Seiten (d) 














Programmname 


Datenträger/ 
Preis (Mark) 


Art der Sprache 


Hardware-Voraussetzungen 


Handbuch-Umfang 


Prolog 64 

D: 289,- 

Interpreter 

Disketten-Laufwerk 

BRA 

Brainware 

70 Seiten (d) 

Strukto 64 

D: 99,- 

Interpreter 

Disketten-Laufwerk 

DAB 

Data Becker 

78 Seiten (d) 

White Lightning 
(Förth-Compiler) 

K: 84,90 

Compreter 

Datasette 

PRO 

Oasis Software 

191 Seiten (e) 

White Lightning 
(Forth-Compiler) 

K: 76,- 

Compreter 

Datasette 

PRI 

Oasis Software 

191 Seiten (e) 

White Lightning 

D. 119,90, K: 79,90 

Compreter 

Disketten-Laufwerk, Datasette 

THO 

Oasis Software 

130 Seiten (e) 

Commodore 128 

Programmname 

Datenträger/ 

Preis (Mark) 

Art der Sprache 

Hardware-Voraussetzu ngen 

Bezugs¬ 

quelle 

Hersteller 

Handbuch-Umfang 

Profi-C 128 

D: 198,- 

Compiler 

Disketten-Laufwerk 

DAB 

Data Becker 

zirka 300 Seiten (d) 

Small C 

D: 148,- 

Compiler 

Disketten-Laufwerk/CP/M 

MAR 

Markt & Technik 

200 Seiten (d) 

Topass 

D: 148,- 

Assembler 

Disketten-Laufwerk 

MAR 

Markt & Technik 

100 Seiten (d) 


MSX-Computer 

Programmname Datenträger/ 


Basic _ 

Basic _ 

Basic _ 

Forth _ 

Förth _ 

Logo _ 

Logo Turtle 

Graphics 

MSX-Disk-Basic 

MSX-Forth _ 

MSX-Macro _ 

Turbo-Pascal _ 

Zen _ 

OL 

Programmname 

Assembler _ 

Assembler _ 

Assembler Deve- 

lopment Kit _ 

BCPL _ 

_C_ 

_C_ 

Forth _ 

Lisp _ 

Pascal _ 

Pascal 


Supercharge Basic 


Datenträger/ 
Preis (Mark) 

integriert 
integriert 
integriert 
K: 119- 
kk. A.: 139,- 
M: k.A. 

K: 69,- 


Datenträg er/ 
Preis (Mark) 

k.A.: 120,- 
k.A.: 120,- 
MD: 159,- 

k.A.: 198,- 
k.A.: 248,- 
k.A.: 318,- 
k.A.: 150,- 
k.A.. 198,- 
k.A.: 175,- 
k.A.: 298,- 


k.A.: 218,- 


Art der Sprache 

Interpreter _ 

Interpreter _ 

Interpreter _ 

Compiler _ 

Compiler _ 

Interpreter _ 

Interpreter 

Interpreter _ 

Compiler _ 

k.A. _ 

Compiler _ 

Assembler 


Art der Sprache 

Assembler _ 

Assembler _ 

Assembler 

Compiler _ 

Compiler _ 

Compiler _ 

Compiler _ 

Interpreter _ 

Compiler _ 

Compiler 


Compiler 


Hardware-Voraussetzungen 


Hardware-Voraussetzungen 


Bezugs- Hersteller 

quelle _ 

JOL Microsoft/ASC II 

PHI, SAY Microsoft 

SON _ Microsoft/Sony 

PRI _kA_ 

RUS k.A. _ 

PHI _ LCFI, Montreal 

PRI, RUS k.A. 

PHI _ Microsoft _ 

PHI _RVS_ 

PHI _RVS_ 

PHI, HEI Borland _ 

PRI k.A. 


Bezugs- Hersteller 
quelle _ 

HIL _ Metacomco 

HIL _ Computer One 

PRI k.A. 

HIL _ Metacomco 

HIL _GST_ 

HIL _ Metacomco 

HIL _ Computer One 

HIL _ Metacomco 

HIL _ Computer One 

HIL Metacomco 


HIL Digital Precision 


Handbuch-Umfang 

zirka 200 Seiten (d) 

170 Seiten (d) _ 

zirka 300 Seiten (d) 

Je)_ 

Je)_ 

150 Seiten (d) 

(e) 

50 Seiten (d) _ 

120 Seiten (d) _ 

100 Seiten (d) _ 

150 Seiten (d) _ 

Je)_ 


Handbuch-Umfang 


UCSD Fortran 77 

k.A.: 560,- 

Compiler 

k.A. 

HIL 

TDI Software 

k.A. 

UCSD Pascal 

k.A.: 560,- 

Compiler 

k.A. 

HIL 

TDI Software 

k.A. 

Schneider CRC 464 

Programmname 

Datenträger/ 

Preis (Mark) 

Art der Sprache 

Hardware-Voraussetzu ngen 

Bezugs¬ 

quelle 

Hersteller 

Handbuch-Umfang 

Basic 

integriert 

Interpreter 

keine 

CPC 

Schneider 

zirka 400 Seiten (d) 

Basic-Compiler 

D: 79,-, K: 69,- 

Compiler 

Disketten-Laufwerk, keine 

PRI, RUS 

Data Media 

(d) 

C 

K: 138,90 

Compiler 

keine 

THO 

Hisoft 

168 Seiten (e) 

C 

D. 159,90 

Compiler 

Disketten-Laufwerk 

PRO 

Hisoft 

(e) 

C 

D: 169 

Compiler 

Disketten-Laufwerk 

ADL 

Hisoft 

120 Seiten (e) 

C 

D: 189,- 

Compiler 

Disketten-Laufwerk, 
ggf. Vortex-Erweit. 

ADL 

Software Toolworks 

48 Seiten (e) 

Cobol 

D: 129,- 

Compiler 

Disketten-Laufwerk 

ADL 

Ellis 

165 Seiten (e) 

Cobol 

i 

01 

CO 

Q 

Compiler 

Disketten-Laufwerk 

SDA 

Ellis 

165 Seiten (e) 

Cogo 

K: 59,90 

Compreter 

keine 

RUS 

k.A. 

(e) 

DEVPAC 

D: 145,-, K: 129,- 

Assembler 

Disketten-Laufwerk, keine 

CPC 

Schneider 

60 Seiten (d) 

Dr. Logo 

D: auf System¬ 
diskette 

Interpreter 

Disketten-Laufwerk 

CPC 

Schneider 

zirka 25 Seiten (d) 

Fig Forth 

K: 33,90 

Compiler 

keine 

PRI 

k.A. 

(e) 

Förth 

K: 69,- 

Compiler 

keine 

PRI, RUS 

k.A. 

(e) 
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Programmname 

Datenträger/ 

Preis (Mark) 

Art der Sprache 

Hardware-Voraussetzungen 

Bezugs¬ 

quelle 

Hersteller 

Handbuch-Umfang 

Fbrth 

K: 78,90 

Compiler 

keine 

THO 

Kuma 

120 Seiten (e) 

Fbrth 

D: 198,- 

Compiler 

Disketten-Laufwerk 

SDA 

Abersoft/Amstrad 

60 Seiten (e) 

Fortran 

D: 129,- 

Compiler 

Disketten-Laufwerk, 
ggf. Vortex-Erweit. 

ADL 

Eins 

214 Seiten (e) 

Fortran 

D: 189,- 

Compiler 

Disketten-Laufwerk 

SDA 

Eins 

214 Seiten (e) 

Lisp 

D: 189,- 

Interpreter 

Disketten-Laufwerk, 
ggf. Vortex-Erweit. 

ADL 

k.A. 

36 Seiten (e) 

Moduia 2 

D: 499,- 

Compiler 

1 MByte-Laufwerk, 
Vortex-Erweiterung 

ADL 

Hochstrasser 

Computing 

(e) 

Pascal 

D: 99,- 

Compiler 

Disketten-Laufwerk, 
ggf. Vortex-Erweit. 

ADL 

Ellis 

(e) 

Pascal 

D: 215,-, K: 199,- 

Compiler 

Disketten-Laufwerk, keine 

CPC 

Hisoft 

96 Seiten (d) 

Pascal 

D: 159,- 

Compiler 

Disketten-Laufwerk 

ADL 

Hisoft 

80 Seiten (e) 

Pascal 80 

D: 159,90 

Compiler 

Disketten-Laufwerk 

PRO 

Hisoft 

90 Seiten (e) 

Small C 

D: 148,- 

Compiler 

Disketten-Laufwerk 

64 KByte-Erweiterung 

MAR 

Markt & Technik 

200 Seiten (d) 

Superpack 80 

D: 141,90, 

K: 128,90 

Assembler 

Disketten-Laufwerk, keine 

PRO 

Profisoft 

19 Seiten (d) 

The Code Machine 

K: 79,90 

Assembler 

keine 

THO 

Picturesque 

68 Seiten (e) 

Turbo* Pascal 

D: 226,- 

Compiler 

Disketten-Laufwerk 

MAR, HEI 

Borland 

(d) 

Turtle Graphic 

D: 49,-, K: 49,- 

Interpreter 

Disketten-Laufwerk, keine 

GEP 

GEPO Soft 

15 Seiten (d) 

Zen 

K: 79,- 

Assembler 

keine 

PRI 

k.A. 

(e) 

Schneider CRC 664 

Programmname 

Datenträger/ 

Preis (Mark) 

Art der Sprache 

Hardware-Voraussetzungen 

Bezugs¬ 

quelle 

Hersteller 

Handbuch-Umfang 

Basic 

integriert 

Interpreter 

keine 

CPC 

Schneider 

zirka 400 Seiten (d) 

Basic-Compiler 

D: 79,90 

Compiler 

keine 

RUS 

k.A. 

(d) 

C 

D: 159,90 

Compiler 

keine 

PRO 

Hisoft 

(e) 

C 

D: 169,- 

Compiler 

keine 

ADL 

Hisoft 

120 Seiten (e) 

C 

D: 189,- 

Compiler 

ggf. Vortex-Erweit. 

ADL 

Software Toolworks 

48 Seiten (e) 

CBasic 

D: 199,50 

Compiler 

keine 

SDA 

Digital Research 

350 Seiten (e) 

Cobol 

D: 129,- 

Compiler 

keine 

ADL 

Ellis 

165 Seiten (e) 

Cobol 

D: 189,- 

Compiler 

keine 

SDA 

Ellis 

165 Seiten (e) 

DEVPAC 

D: 145,-, K: 129,- 

Assembler 

keine 

CPC 

Schneider 

60 Seiten (d) 

Dr. Logo 

D: liegt bei 

Interpreter 

keine 

CPC 

Schneider 

zirka 25 Seiten (d) 

Fbrth 

D: 189,- 

Compiler 

keine 

SDA 

Abersoft/Amstrad 

60 Seiten (e) 

Fortran 

D: 129,- 

Compiler 

ggf. Vortex-Erweit. 

ADL 

Ellis 

214 Seiten (e) 

Fortran 

D: 189,- 

Compiler 

keine 

SDA 

Ellis 

214 Seiten (e) 

Lisp 

D: 189,- 

Interpreter 

ggf. Vortex-Erweit. 

ADL 

k.A. 

36 Seiten (e) 

Moduia 2 

D: 499,- 

Compiler 

1 MByte-Laufwerk, 
Vortex-Erweiterung 

ADL 

Hochstrasser 

Computing 

(e) 

Pascal 

D: 99,- 

Compiler 

ggf. Vortex-Erweit. 

ADL 

Ellis 

(e) 

Pascal 

D: 215,-, K: 199,- 

Compiler 

keine 

CPC 

Hisoft 

96 Seiten (d) 

Pascal 

D: 159,- 

Compiler 

keine 

ADL 

Hisoft 

80 Seiten (e) 

Pascal 80 

D: 159,90 

Compiler 

keine 

PRO 

Hisoft 

90 Seiten (e) 

Superpack 80 

D: 141,90 

Assembler 

keine 

PRO 

Profisoft 

19 Seiten (d) 

Turbo Pascal 

D: 226,- 

Compiler 

keine 

MAR, HEI 

Borland 

(d) 

Turtle Graphic 

D: 49,- 

Interpreter 

keine 

GEP 

GEPO Soft 

15 Seiten (d) 

Schneider CPC 6128 

Programmname 

Datenträger/ 

Preis (Mark) 

Art der Sprache 

Hardware-Voraussetzungen 

Bezugs¬ 

quelle 

Hersteller 

Handbuch-Umfang 

Basic 

integriert 

Interpreter 

keine 

CPC 

Schneider 

zirka 400 Seiten (d) 

Basic-Compiler 

D: 79,90 

Compiler 

keine 

RUS 

k.A. 

(d) 

C 

D: 159,90 

Compiler 

keine 

PRO 

Hisoft 

(e) 

C 

D: 169,- 

Compiler 

keine 

ADL 

Hisoft 

120 Seiten (e) 

c 

D: 189- 

Compiler 

ggf. Vortex-Erweit. 

ADL 

Software Toolworks 

48 Seiten (e) 

C-Compiler 

D: 199,- 

Compiler 

Disketten-Laufwerk 
mit 128, RAM 64 KB. 

GEP 

GEPO Soft 

200 Seiten (d) 

CBasic 

D: 199,50 

Compiler 

keine 

SDA 

Digital Research 

350 Seiten (e) 

Cobol 

D: 129,- 

Compiler 

keine 

ADL 

Ellis 

165 Seiten (e) 

Cobol 

D: 189,- 

Compiler 

keine 

SDA 

Ellis 

165 Seiten (e) 

CP/M Pascal- 
Compiler 

D: 158,90 

Compiler 

keine 

DRE 

Hisoft 

zirka 100 Seiten (e) 

CP/M-C-Compiler 

D: 158,90 

Compiler 

keine 

DRE 

Hisoft 

100 Seiten (e) 

Dr. Logo 

D: liegt bei 

Interpreter 

keine 

CPC 

Schneider 

zirka 25 Seiten (d) 

DEVPAC 

D: 145,-, K: 129,- 

Assembler 

keine 

CPC 

Schneider 

60 Seiten (d) 


OMPJTE 
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Lisp _ 

Oxford Pascal 


Pascal _ 

Pascal 80 _ 

Pascal MT+ 

Small C _ 

Superpack 80 
TUrbo Pascal 


Turtle Graphic 

Joyce 

Programmname 


Mallard-Basic 
Pascal MT+ 
Turbo Pascal 


Spectrum 


D: 99,- _ 

D: 215,-, K: 199,- 

D: 159,- _ 

D: 159,90 


D: 148,- 
D: 141,90 
D: 226,- 


Datentrager/ 
Preis (Mark) 

D: 199,50 
D: 189,- 
D: liegt bei 


D: liegt bei 
D: 199,50 


Programmnama 


Datenträger/ 
Preis (Mark) 

K: 27,90 
K: 98,90 


K: 98,- bis 100,- 


Compller 

Compiler 

Compiler 

Interpreter 

Compiler 

Compiler 

Compiler 

Compiler 

Compiler 

Compiler 

Compiler 

Assembler 

Compiler 


Interpreter 


Art der Sprache 

Compiler _ 

Compiler _ 

Interpreter 


Interpreter _ 

Compiler _ 

Compiler_ 


Art der Sprache 


ggf. Vortex-Erweit. 

keine _ 

ggf. Vortex-Erweit. 
keine 

ggf. Vortex-Erweit. 
keine 


Hardware-Voraussetzungen 


Compiler 


Compiler 


Hardware-Voraussetzungen 


48 KByte 


Abersoft/Amstrad 

Ellis _ 

Eins 


Oxford Computer 
Systems 


Digital Research 
Markt & Technik 


PRO 

MAR, HEI 


GEP 


Bezugs- Hersteller 
quelle 


Bezugs¬ 

quelle 


Digital Research 


SPA _ Digital Research 

MAR, HEI Borland 


Bug-Byte _ 

Oxford Computer 
Systems_ 


60 Seiten (e) 
214 Seiten (e) 
214 Selten (e) 
36 Seiten (e) 
<d) 

Je)_ 

96 Seiten (d) 
80 Seiten (e) 
90 Seiten (e) 
270 Seiten (e) 
200 Seiten (d) 
19 Seiten (d) 

(d) 


15 Seiten (d) 


Handbuch-Umfang 

350 Seiten (e) 

165 Seiten (e) 
zirka 25 Seiten (d) 


zirka 400 Seiten (d) 
270 Seiten (e) 

Jd)_ 


Handbuch-Umfang 

9 Seiten (e) _ 

31 Seiten (e) 

78 Seiten (e) 


Editor/Assembler 

Fith _ 

Forth 


FP Basic-Compiler 

M-Coder _ 

M-Coder II _ 

Pascal 4T 


K: 32,- bis 34,- 


K: 57,- bis 59,- 
K. 49,-_ 


K: 59,90 


White Lightning 
(Fbrth-Compiler) 


K. 23,90 _ 

K: 49,90 _ 

K: 59,90 bis 63,90 


Interpreter 

Compiler 

Compiler 


Compiler 

Compiler 

Assembler 

Compiler 

Compiler 

Compiler 

Compiler 

Compiler 

Disassembler 

Compiler 

Compreter 


48 KByte 


48 KByte 
48 KByte 
48 KByte 
k.A. 


48 KByte 


PRO, PRI 
PRI 

DRE, PRI 
ACC 


THO 

DRE 


DRE 

PRI, RUS 
THO 


Profisoft _ 

k.A. _ 

Sinclair _ 

Artic Computing 


Artic Computing 
Individual Software 


Campbell Systems 

Hisoft _ 

Oasis Software 


34 Seiten (d) 

Je)_ 

60 Seiten (e) 

48 Seiten (e) 


48 Seiten (e) _ 

4 Seiten (e) _ 

Je)_ 

7 Seiten (e) _ 

98 Seiten (d) 
zirka 60 Seiten (e) 
zirka 60 Seiten (e) 
79 Seiten (e) 

1 Seite (e) _ 

33 Seiten (e) _ 

132 Seiten (e) 


Bezugsquellen 


Computer Accessoires, Jägerweg 10, 8012 Ottobrunn 
Adler-Computertechnik, Elisabethstr. 5a, 5800 Hagen 1 
Apple, Ingolstädter Str. 20, 8000 München 45 
Atari Corporation, Frankfurter Str. 89-91, 6096 Raunheim 
Brainware, Kirchgasse 24, 6200 Wiesbaden 
Schneider Computer Division, Silvastr. 1, 8939 Türkheim 
Compy-Shop, Gneisenaustr. 29, 4330 Mülheim/Ruhr 
Data Becker, Merowingerstr. 30, 4000 Düsseldorf 
H G. Dreeser, Im Rosenhag 6, 5300 Bonn 1 
GEPO Soft, Gertrudenstr. 31, 4220 Dinslaken 
Heimsoeth Software, Frankfurterstr. 13, 8000 München 5 
HIB-Computerladen, Postfach 21 01 25, 8500 Nürnberg 21 


Philgerma, Ungererstr. 42, 8000 München 40 

Hofacker Verlag, Tegernseer Str. 18, 8150 Holzkirchen 

Jöllenbeck, Im Dorf 5, 2730 Weertzen 

Markt & Technik, Hans-Pinsel-Str. 2, 8013 Haar 

Pandasoft, Uhlandstr. 195, 1000 Berlin 12 

Philips, Mönckebergstr. 7, 2000 Hamburg 1 

Printadress, Postfach 15-73, 3548 Arolsen 

Profisoft, Sutthauser Str. 50 - 52, 4500 Osnabrück 

Rushware, An der Gümpgesbrücke 24, 4044 Kaarst 2 

Sanyo Büroelectronic, Truderinger Str. 13, 8000 München 80 

Schneider Data, Rindermarkt 8, 8050 Freising 

Sony Deutschland, Hugo-Eckener-Str. 20, 5000 Köln 30 

Thomas Wagner, Postfach 11 2243, 8900 Augsburg 
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Programmiersprachen unter CP/M 80 für den C128 PC und Schneider 


Produktname 

Preis 

Datenträger 

Art der Sprache 

Turbo-Pascal 3.0 

225,72 

Diskette 

Compiler 

C-Basic-Compiler 

174,- 

Diskette 

Compiler 

Small-C-Entwicklungssystem 

148,- 

Diskette 

Compiler 

Pascal/MT 

174,- 

Diskette 

Compiler 

Turbo-Lader-Grundpaket 

138- 

Diskette 

- 

Turbo-Lader-Business 

148,- 

Diskette 

- 

Turbo-Lader-Science 

189,- 

Diskette 

- 

Turbo-Pascal-3.0 grafikunterstützt 

285,- 

Diskette 

- 

Turbo-Grafik 

225,72 

Diskette 

- 

Turbo-Toolbox 

225,72 

Diskette 

- 

Hisoft-C-Compiler 

160,- 

Diskette 

Compiler 


Anbieter 


Markt ÄTechnik 
Markt ÄTechnik 
Markt &Technik 
Markt &Technik 
Markt &Technik 
Markt ÄTechnik 
Markt &Technik 
Markt &Technik 
Markt &Technik 
Markt ÄTechnik 
Markt &Technik 


Programmiersprachen unter CP/M-80 


Produktname 


Preis 


Datenträger 


Art der Sprache 


Anbieter 


ADA-Compiler 
C Basic 
C Basic 
MS Basic 
MS Basic 
BDS-C 

Supersoft C-80 
Cobol Level II 
MS Cobol 
RM Cobol 
Forth 8080 
Förth Z80 
Fortran 80SS 
MS Fortran 80 
MS Multisp 
PL/I 


1162,80 

1881,- 

564,30 

1615,38 

1429,56 

564,30 

1356,60 

3846,36 

2859,12 

2793,- 

855,- 

855,- 

1647,30 

2045,16 

818,52 

1815- 


Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 

Diskette 


Compiler 80 
P-Code Interpreter 
Compiler 
Interpreter 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Interpreter 
Interpreter 
Compiler 
Compiler 

Compiler 


Markt ÄTechnik 
Markt ÄTechnik 
Markt ÄTechnik 
Markt &Technik 
Markt ÄTechnik 
Markt ÄTechnik 
Markt ÄTechnik 
Markt &Technik 
Markt ÄTechnik 
Markt ÄTechnik 
Markt ÄTechnik 
Markt ÄTechnik 
Markt ÄTechnik 
Markt ÄTechnik 
Markt ÄTechnik 
Markt ÄTechnik 



im 


Ein grundlegender, umfassender Assembler-Kurs und ein zweiter über 
effektives Programmieren mit Assembler helfen auf 100 Seiten allen 
Anfängern und Fortgeschrittenen nach Basic nun auch in Maschinensprache 
Fuß zu fassen. 

Alle, die keinen Assembler- oder Maschinensprache-Monitor besitzen, 
finden komplette »Werkzeugsätze« für Hypra-Ass, SMON und einen 
Hypra-Ass-kompatiblen Reassembler. Mit diesem Proarammpaket lösen 
Sie jede noch so knifflige Aufgabe in Maschinensprache optimal. 

Viele Tips&Tricks zeigen, wie man mit Assembler arbeitet. 

Zu allen Listings sind die dokumentierten Quellcodes angegeben. 

Und als Top-Punkt zum Schluß eine Zusammenfassung der 
wichtigsten Tabellen: Befehlssatz des 6510, ROM-Routinen in eigenen 
Programmen, die Codes des C64, Befehlsliste zu Hypra-Ass, Reass 
und SMON. 


Schon lange nach diesen 
Informationen gesucht? 

Dann bestellen Sie das große 64'er-Sonderheft »Assembler« 
(8/85) mit der im vorliegenden Sonderheft eingehefteten 
Zahlkarte (Happy-Computer-Vertrieb, Leser-Service). 













I. Lüke/P. Luke 

Turbo-Pascal 

1085, 290 Saiten 

Das vorliegende Buch ist eine nach 
didaktischen Gesichtspunkten aufge¬ 
baute Einführung in sämtliche Versio¬ 
nen (einschl 3.0) auf allen verfügbaren 
Betriebssystemen (CP/M, CP/M-86, 
MS-DOS). Es bietet nicht nur eine Ein¬ 
führung in die Sprache, sondern auch in 
das reichhaltige Repertoire an Zusatz¬ 
funktionen (auch für Grafik, Farbe, 
Sound und Window-Technik sowie für 
direkten Speicherzugriff) und Zusatzbi¬ 
bliotheken (Turbo-Toolbox, Turbo-Lader). 
Bast.-Nr. MT 90150 __ 

ISBN 3-89090-150-6 DM 49,- 



J. Purdum/T. Leslie/A. Stegemöller 

Die C-Programmbibllothek 

1.Quartal 1986, 361 Saltan 

Dieses Buch erspart dem C-Program- 
mierer Stunden mühseliger Kleinarbeit 
und hilft, effizientere Programme zu 
schreiben. Der erste Teil zeigt, wie man 
zu universellen Bibliotheksfunktionen 
kommt und gibt Tips, wie C noch wir¬ 
kungsvoller eingesetzt werden kann. 
Der zweite Teil enthält eine Reihe aus¬ 
führlich erklärter C-Funktionen als wert¬ 
volle Ergänzung Ihrer Programmbiblio¬ 
thek. Dazu gehören unter anderem ein 
Terminalinstallationsprogramm, meh¬ 
rere Sortier-Algorithmen und ein Satz 
ISAM-Funktionen. Um die Anwendung 
der Funktionen zu verdeutlichen, ent¬ 
hält das Buch einige Programm¬ 
beispiele. 

• Die Programmbibliothek wendet sich 
an Leser mit Grundkenntnissen von C. 
Die gezeigten Programme und Funktio¬ 
nen sind so gehalten, daß sie rechner¬ 
und compilerunabhängig eingesetzt 
werden können. 

Best.-Nr. MT 90133 ___ 

ISBN 3-89090-133-6 DM 69,- 


Markt & Technik-Fachbücher 
erhalten Sie bei Ihrem Buchhändler. 




Markt&Technik 

UnUffuhmtntbtrtlch Buchvartag 
Hain Pinie! Straft« 2, 8013 Haar bei München 


Depot-Händler 

Tragen Sb Ihre Buchbesteäung auf eine Postkarte ein 
und schicken diese an einen Depothändler In Ihrer Nähe 
oder an Ihren Buchhändbr. 

Buchhandlung Herder, Kurfürstendamm 69 
1000 Berlin 16. Tel. (030) 8 83 6002 
BTX *921782# 

Computers Fachbuchhandlung, Ketthstraße 18 

1000 Berlin 30, Tel. (030) 2 139021 

Thalia Buchhaus, Große Bleichon 19 

2000 Hamburg 30, Tel. (040) 300 5060 

Boyaen + Mansch, Hermannstraße 31 

2000 Hamburg 1, Tel. (040) 300 60 50 

Electro-Data, Wilhelm-Heidsiek Straße 1 

2190 Cuxhaven, Tel. (047 211 612 88 

Buchhandlung Muehlau, Holtenauer Straße 116 

2300 Klei, Tel. (04 31) 8 6086 

ECL, Norderstraße 94-96 

2390 Flensburg, Tel. (0461) 2 81 81 

Buchhandlung Weiland. Königstraße 79 

2400 Lübeck, Tel. (0451) 74006-09 

Buchhandlung Storm, Langenstraße 10 

2800 Bremen 1, Tel. (0421) 32 1623 

Buchhandlung Lohse-Elsslng. Marktstraße 38 

2940 Wilhelmshaven, Tel. (044 21) 4 1687 

Buchhandlung Schmort u. v. Seefeld. Bahnhofstraße 13 

3000 Hannover 1, Tel. (0511) 32 76 51 

Buchhandlung Qraff. Neue Straße 23 

3300 Braunschwelg. Tel. (06 31) 492 71 

Deuerlich'sche Buchhandlung. Weender Straße 33 

3400 Göttingen, Tel. (06 61) 5 68 68 

Buchhandlung an der Hochschule. Hollftndische Straße 22 

3600 Kassel. Tel (0561) 83807 

Stern Verlag. Friedrichstraße 24-26 

4000 Düsseldorf, Tel. (02 11) 37 3033 

Buchhandlung Baedekar, Kettwiger Straße 33-36 

4300 Essen 1, Tel. (0201) 22 13 81 

Regensberg'sche Buchhandlung, Alter Steinweg 1 

4400 Münster, Tal. (02 51) 40641-5 

Buchhandlung Ackar, Johannisstraße 61 

4600 Osnabrück, Tel. (0541) 2 84 88 

Buchhandlung Brockmeyer. Querenburger Höhe 281/Unicenter 

4030 Bochum. Tel. (02 34) 701360 

Buchhandlung Meier + Weber. Warburger Straße 98 

4790 Paderborn, Tel. (0 62 61) 6 31 72 

Buchhandlung Phönix GmbH. Oberntorwall 26 

4800 Bielefeld 1. Tel. (05 21) 6 8306-38 

Buchhandlung Gonskl, Neumarkt 24 

6000 Köln 1, Tel. (02 21) 2106 28 

Mayer'sche Buchhandlung. Uraulinerstraße 17-19 

6100 Aachen, Tel. <0241)47 77 0 

Buchhandlung Behrendt, Am Hof 6a 

6300 Bonn 1, Tel. (0228) 668021 

Buchhandlung Cusanus. Schloßstraße 12 

6400 Koblenz. Tel. (02 61) 3 62 39 

Akad. Buchhandlung Interbook. Fleischstraße 61-65 

6600 Trier, Tel. (00 61) 436 90 

Buchhandlung W. Finke, Kipdorf 32 

5600 Wuppertal 1. Tel. (0202) 4642 20 

Buchhandlung Balogh, Sandstraße 1 

6900 Siegen, Tel. (02 71) 6 62 98-9 

Buchhandlung Naacher, Steinweg 3 

6000 Frankfurt 1. Tel. (069) 2980 60 

Buchhandlung Wallnitz, Lautenschlfigerstraße 4 

6100 Darmstadt. Tel. (061 61) 7 6648 

Buchhandlung Faller + Gacks, Friedrichstraße 31 

0200 Wiesbaden, Tel. (001 21) 3049 11 

Ferber'sche UNI Buchhandlung, Seltersweg 83 

6300 Gießen, Tel. (0641) 1 2001 

8ozlalwissenschaftllche Fachbuchhandlung. Friedrichstraße 24 

0400 Fulda, Tel. (0601) 7 6077 

Gutanberg Buchhandlung. Große Bleiche 29 

6600 Mainz. Tel. (061 31) 3 70 11 

Buchhandlung Bock + Selp. Futterstraße 2 

0000 Saarbrücken, Tel. (0081) 300 77 

Buchhandlung Wilhelm Hofmann. Bismarckstraße 98 

6700 Ludwigshafen, Tel. (0621) 61 6001 

Buchhandlung Loeffler. B 1,5 

0800 Mannheim 1, Tel. (06 21) 2 8912 

Buchhandlung 8tehn, Bahnhofstraße 13 

7000 Stuttgert 60. Tel. (07 11) 56 14 76 

Buchhandlung am Markt, Kramstraße 6 

7100 Hellbronn, Tel. (071 31) 68682 

UNI Buchhandlung Kallnar + Moessner. Kaiserstraße 18 

7600 Karlsruhe, Tel. (07 21) 69 14 36 

Buchhandlung Roth, Hauptstraße 45 

7000 Offenburg. Tel. (07 81) 2 2097 

Rombach Center. Bertholdstraße 10 

7800 Freiburg, Tel. (07 61) 49091 

Fachbuchhandlung Hofmann. Hirschstraße 4 

7900 Ulm, Tel. (07 31) 60949 

Schaut las Elektronik. Bachstraße 52 

7980 Ravensburg. Tel. (07 61) 2 61 38 

Buchhandlung Hugendubel. Marienplatz 

8000 München 2, Tel. (089) 2389-1 

Computerbücher am Obelisk. Barerstraße 32-34 

8000 München 2, Tel. (089) 282383 

Pelo's Computerbücher, Schillerstraße 17 

8000 München 2. Tel. (089) 66 62 29 

UniversHitsbuchhandlung Lachner. Theresienstraße 43 

8000 München 2, Tel. (089) 52 1340 

Buchhandlung Schönhuber, Theresienstraße 6 

8070 Ingolstadt. Tel. (0841) 33140/47 

Computerstudio Gertrud Friedrich, Ludwigstraße 3 

8220 Traunstein, Tel. (0861) 14707 

Buchhandlung Pustet, Kl. Exerzierplatz 4 

8390 Passau, Tel. (08 51) 669 46 

Buchhandlung Pustet, Gesandtenstraße 0 

8400 Regensbury, Tel. (0941)6 3001 

Buchhandlung Dr. Büttner, Adlerstraße 10-12 

8600 Nürnberg, Tel. (09 11) 2323 18 

Computer Center Burger. Leimitzer Straße 11-13 

8070 Hof. Tel. (092 81)400 76 

Sortiments- u. Bahnhofsbuchh. J. Strykowskl, Bahnhofplatz 4 

8700 Würzburg, Tel (0931) 64389 

Buchhandlung Pustet, Grottenau 4 

8900 Augsburg. Tel. (0821) 3 6437 

Kemptener Fachsortiment. Salzstraße 30 

8960 Kempten. Tel. (0831) 14413 

Belgien: 

Eicher Micro & Personal Computer, Hünningen 66-68 

B 4780 St. Vkh. Tel. (080) 227393 

Luxemburg: 

Llbrairle Promoculture. 14. rue Duchscher (PI. de Paris) 

L-1011 Luxembourg-Gare, Tel. 4806 91, Telex 31 12 
Schweiz: 

Buchhandlung Meissner. Bahnhofstraße 41 
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Auf 

Ihrem Weg 
zum professionellen 
Computer-Anwender 
werden Sie früher oder später 


Computer persönlich PC Magazin 


Das aktuelle Fachmagazin für Personal Computer. 

Wenn Sie jetzt den Schritt vom Heim-Computer zur 
professionellen Anwendung eines Personal Computers 
planen I Wenn Sie beruflich oder privat bereits einen 
Personal Computer benutzen Wenn Sie selbst profes¬ 
sionell programmieren Wenn Sie regelmäßig Informa¬ 
tionen über das breite Produktangebot auf dem Personal 
Computer-Markt benötigen Wenn Sie professionelle 
Hard- und Softwaretests suchen Wenn Sie Ihr eigenes 
System möglichst effizient einsetzen wollen, dann ist 
»Computer persönlich« genau Ihre Zeitschrift. 

Die konsequente Ausrichtung auf professionelle Anwen¬ 
dungen bietet Ihnen alle wichtigen Informationen. 

Und das alle 14 Tage, mittwochs bei Ihrem Zeitschriften¬ 
händler oder im Computer-Fachgeschäft. 


Die einzige Wochenzeitung ausschließlich für Personal 
Computer im IBM-Standard. 

:: Wenn Sie an aktuellen und umfassenden Informatio¬ 
nen über IBM-PCs und kompatible Systeme interessiert 
sind I Wenn Sie stets über die neuesten und effektivsten 
Anwendungen für den professionellen und privaten Be¬ 
reich informiert sein wollen Wenn Sie sich für Markt¬ 
übersichten und ausführliche Testberichte über Hard- 
und Software interessieren Wenn Sie sich mit 
CAD/CAM, Netzwerken und der Anbindung von PCs 
an Groß-EDV-Anlagen beschäftigen, dann ist »PC 
Magazin« genau auf Ihre Bedürfnisse zugeschnitten. 

Die Spezialisierung auf IBM-PCs und Kompatible er¬ 
möglicht eine gezielte Berichterstattung und bietet genü¬ 
gend Raum, um auf Anwenderprobleme spezifisch einge- 
hen zu können. 




auf diese 


»PC Magazin« — jeden Mittwoch neu bei Ihrem Zeit¬ 
schriftenhändler oder im Computer-Fachgeschäft. 


beiden Computer-Zeitschriften stoßen: 


Zur 

Anforderung 
Ihres kostenlosen 
Probeexemplares einfach den 
nebenstehenden Gutschein ausfüllen, 
ausschneiden, auf eine Postkarte 
kleben oder in ein Kuvert 
stecken und einsenden an: 

Markt & Technik, 
Verlag Aktiengesellschaft, 


Senden Sie mir die neueste Ausgabe der von mir angekreuzten Zeitschrift kostenlos als Probeexemplar. 


□ Wenn mir »Computer persönlich« zusagt 
und ich es regelmäßig weiterbeziehen möch¬ 
te, brauche ich nichts zu tun: Ich erhalte »Compu¬ 
ter persönlich« dann regelmäßig alle 14 Tage per 
Post frei Haus geliefert und bezahle pro Jahr nur 
DM 98,- statt DM 143,- Einzelverkaufspreis. Zu¬ 
stellung und Postgebühren übernimmt der Verlag. 
Dieses Angebot gilt nur in der Bundesrepublik 
Deutschland einschließlich West-Berlin. Das 
Abonnement verlängert sich nur dann zu den 
dann jeweils gültigen Bedingungen, wenn es nicht 
2 Monate vor Ablauf schriftlich gekündigt wird. 


□ Wenn mir das »PC Magazin« zusagt und 
ich es regelmäßig weiterbeziehen möchte, 
brauche ich nichts zu tun: Ich erhalte mein »PC 
Magazin« dann regelmäßig jede Woche per Post 
frei Haus geliefert und bezahle pro Jahr nur DM 
155,-statt DM 229,50 Einzelverkaufspreis. Zustel¬ 
lung und Postgebühren übernimmt der Verlag. 
Dieses Angebot gilt nur in der Bundesrepublik 
Deutschland einschließlich West-Berlin. Das 
Abonnement verlängert sich nur dann zu den 
dann jeweils gültigen Bedingungen, wenn es nicht 
2 Monate vor Ablauf schriftlich gekündigt wird. 


Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerrufen kann. 
Zur Wahrung der Frist genügt die rechtzeitige Absendung des Widerrufs. Ich bestätige dies durch meine 
2. Unterschrift. 
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Die Profi-Textverarbeitung im 128er-Modus mit vollautomatischer Silbentrennung, integrierter 
Tabellenkalkulation und Zusatzprogramm zum Überprüfen der Rechtschreibung. 


PROTEXT ist ein leicht bedienbares Textprogramm mit hoher Leistungs¬ 
fähigkeit. Eingebaute Hilfefunktionen ermöglichen eine schnelle Einarbeitung. 

Mit PROTEXT sind daher auch Anfänger in der Lage, alle Vorteile eines profes¬ 
sionellen Textprogramms zu nutzen. 

Was PROTEXT alles kann: 

• Farbkombination für Hintergrund und Schrift (Vordergrund) frei wählbar; 

• formatierte Ausgabe auf Bildschirm und Drucker mit programmierbaren Hal¬ 
tepunkten über serielle, V24- oder zwei Software-Centronics-Schnitt- 
stellen; 

• vielfältige Formatanweisungen: linker/rechter Rand, vollautomatische Sil¬ 
bentrennung, Kopf-/Fußzeilen, Fußnoten, Zentrieren usw. 

• schnelle selbstlernende Textkorrektur mit deutschem (ca. 25000 Worte) 
Grundwortschatz sowie neun Kundenbibliotheken, die in Text umgewan¬ 
delt, bearbeitet, ergänzt, sortiert und ausdruckbar sind; 


• Textübertragung per DFÜ mit Space-Optimierung und automatischer Feh¬ 
lerkorrektur; 

• leistungsfähige Rechenmöglichkeiten mit Zeilenmarkierung (Rechentabu¬ 
lator), Kolonnenverarbeitung, programmierter Tabellenkalkulation und 
Taschenrechner. 


Hardwareanforderung: 


• C128 oder C128 D 

• 80-Zeichen-Monitor 

• Commodore-Drucker oder Drucker 
mit Centronics-Schnittstelle 


Best.-Nr. MD 254A i| J14 W*#/\ 


inkl. MwSt. 
Unverbindliche Preisempfehlung 



TOPASS - 

DerASEjAomossembta 

für den Commodore 128 PC 

mit integriertem Editor, 

Monitor und Linker. 


Dieser 6502-Macroassembler setzt neue Maß¬ 
stäbe. Seine Leistungsfähigkeit wird auch den ver¬ 
wöhnten Maschinenprogrammierer überzeugen: 

• integrierter Editor, der schon bei der Eingabe 
des Quelltextes eine Syntaxüberprüfung vor¬ 
nimmt; 

• integrierter Linker, mit dem quellgesteuertes 
Linken von relokatiolen Modulen möglich ist; 

• assemblereigene schnelle und gleichzeitig 
sehr leistungsfähige Integerarithmetik; 



• über 2000 Labels können gleichzeitig verwaltet 
werden, das heißt Maschinenprogramme bis zu 
einer Länge von ca. 25 KByte Objektcode kön¬ 
nen bei Bedarf in einem Rutsch assembliert 
werden; 

• Macros mit beliebig vielen Parametern, Macro- 
bibliotheken, Minimacs, bedingte Assemblie¬ 
rung, Labeleingabe im Dialog, Ausgabe forma¬ 
tierter Assemblerlistings, Ausgabe sortierter 
Symboltabellen und vieles andere mehr. 

Außerdem wird der ASE-Macroassembler von 
einem sehr guten Monitor und einem Relativlader 
unterstützt, der relokatible Module an beliebige 
Speicheradressen laden kann und endlich Schluß 
macht mit den Dutzenden Maschinenprogrammen 
auf Diskette, die sich nur durch ihre Startadresse 
unterscheiden! 

Lernen Sie es kennen, 

das TOPASS Assembler-Entwicklungssystem! 

Es lohnt sich! 


Best.-Nr. MD 253A 
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r inkl. MwSt. 

Unverbindliche Preisempfehlung 



Diese Markt &Technik-Softwareprodukte erhalten 
Sie in den Fachabteilungen der Kaufhäuser 
und in Computershops. 

Wenn Sie direkt beim Markt&Technik Verlag 
bestellen wollen: 

Nur gegen Vorauskasse, Verrechnungsscheck 
oder mit der eingedruckten Zahlkarte. 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 
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Bestellungen im Ausland bitte an 
untenstehende Adressen: 

Schweiz: Markt&Technik Vertriebs AG, 
Kollerstr. 3, CH-6300 Zug, Tel. 042/41 56 56 
Österreich: Ueberreuter Media Handels¬ 
und Verlagsges. mbH, Alser Str. 24, 
A-1091 Wien, Tel. 02 22/481538-0 

























